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ENTERPRISE FROM PDF'ika. 
(DNY) 


A lot of people who read these lines think where this book came from, didn't they? And 


You'll be right. Partly. 
At the beginning, I downloaded txt file with Virtual TR-DOS, on the news for 11.03.2006. Figures below: 


@ Another update under Books. Okay, Oleg Dagtyre sent a book of fascinating games. 
On a domestic computer, and Slave Kalinin dug a book of the World of Sounds. 
Spectrum. The author of the last book on his website claims that the manuscript was in time. 


Ambassador Inforcoma, but he never saw the light. 


The author's wrong. The book was printed, but electronically in ZX-FORUM No. 4, really, no. 
A picture. I've decided to make this book in print, that's PDF. Total 
2 years of work (more abandoned) You'll see for yourself. 


Deny (DenyDA@mail.ru) 
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ПРЕДИСЛОВИЕ 


ПРЕДИСЛОВИЕ 


Эта книга предназначена для читателей, которые решили писать программы, и хотят 
оформить их на высоком уровне, что невозможно без использования звуковых возможностей ZX- 
Spectrum. Она составлена по принципу от простого - к сложному, и разобраться в ней сможет даже 
не очень подготовленный человек. Также книга может служить пособием для начинающих 
программировать на ассемблере: она буквально напичкана примерами. 

Здесь содержатся практически все сведения, которые могут Вам понадобиться когда- 
нибудь для создания звукового сопровождения как игровых, так и системных программ. 

В книге рассматривается программирование только стандартных звуковых устройств 
Спектрума (порт #FE и музыкальный сопроцессор). Такая экзотика, как ЦАП, АЦП, MIDI, 
присущая Спектрумам - монстрам (АТМ TURBO, PROFI) и некоторым самоделкам, даже не 
затрагивается из-за её нестандартности. Хотя, с помощью одного только ЦАПа (Цифро- 
Аналогового Преобразователя) можно было бы создавать почти фантастические звуки. Возможно, 
когда-нибудь в будущем, я опишу и эти средства создания звука. 

Теперь о том, что же здесь все-таки содержится. 

В первой главе рассказывается о природе звука и о его характеристиках. 

В следующих трех главах описывается оператор Ѕресігшт-бейсика ВЕЕР, создание с его 
помощью эффектов и мелодий. 

В следующей главе рассказывается о том, как в ZX-Spectrum получается звук, а также о 
порте 254(#FE). 

Дальше повествуется о создании эффектов и музыки в машинных кодах. 

Затем - об обработке сигналов, подаваемых на магнитофонный вход Вашего компьютера, и 
о программах, синтезирующих человеческую речь. 

В следующей главе рассказывается о звуке на прерываниях. 

Вторая часть книги посвящена музыкальному сопроцессору АУ-3-8910 (АУ-3-8912). 

Сначала описывается оператор БЕЙСИКА-128 PLAY и всё, что с ним связано. 

Следующая глава поможет Вам разобраться в управлении сопроцессором и в его регистрах. 
С её помощью Вы научитесь программировать микросхему АУ в кодах. 

И, наконец - обзор программного обеспечения, в который включены различные 
музыкальные редакторы, редакторы звуковых эффектов, синтезаторы речи, демонстрационные 
программы и т.п. Подробно описаны три такие программы. Это SUPER SOUND - редактор 
звуковых эффектов, WHAM THE MUSIC BOX - музыкальный редактор и ASC SOUND MASTER 
(ASM) -музыкальный редактор для сопроцессора. 

В приложении | находятся листинги всех звуковых эффектов программы SUPER SOUND, а 
в приложении 2 даны советы по использованию ассемблера GENS4. 

Условные обозначения, используемые в книге: 

CS - клавиша Caps Shift; 

SS - клавиша Symbol Shift; 

С5Л - одновременное нажатие клавиш (в данном случае Caps Shift и 1); 
A+2 - последовательное нажатие клавиш (в данном случае А и 2); 

[1] - номер издания в списке литературы, в конце книги. 


ФИЗИКА ЗВУКА 


1. Физика звука. 


Говоря научным языком, звук - это механические продольные колебания упругой среды. 
Выражаясь же языком простых смертных - это всего-навсего колебания воздуха. 

Человеческое ухо очень чувствительно к изменению воздушного давления, оно улавливает 
малейшие его колебания. 

Человек может воспринимать звуковые колебания с частотой от 20 до 20000 Гц (Гц - герц. 
Одно колебание в секунду). Звук с частотой меньше 20 Гц называется инфразвуком, а больше 
20000 Гц - ультразвуком. 

Чем больше частота колебаний, тем выше слышимый звук. Чувствительность уха не 
одинакова на всем диапазоне звуковых частот. Самые низкие и самые высокие частоты 
воспринимаются гораздо хуже средних. 

Громкость звука напрямую зависит от амплитуды колебаний и измеряется в децибелах (дБ). 
Чем больше амплитуда, тем громче слышимый звук. Человек может воспринимать звук с 
громкостью от 0 до 130 дБ. Самые громкие звуки (100 - 130 дБ) воспринимаются болезненно, а 
при громкости больше 130 дБ лопаются барабанные перепонки в ушах и человек становится 
глухим. 

Следующая характеристика звука - тембр. Тембр - это форма звуковой волны. Благодаря 
тому, что наше ухо способно различать тембры, мы можем отличать звучание гитары от 
фортепиано. Для наглядности взгляните на рис. 1. Там приведены две звуковые волны с 
различными тембрами. 


ДЯВЛЕНИЕ 
ВОЗДУХА 
ДАВЛЕННЕ 
ВОЗДУХА 


ВРЕМЯ ВРЕМЯ 
рис. 1 Звуновые TeMBPDI. 


Ещё одна характеристика - периодичность. Если звуковая волна состоит из одного 
повторяющегося фрагмента, то такой звук можно считать периодичным, а в противном случае - 
нет. Периодичный звук воспринимается как музыкальный тон, а непериодичный - как шум. 
Существует несколько различных видов шума. Два наиболее распространенных - белый шум и 
импульсный шум. Их диаграммы приведены на рис. 2. 


БОЛЫЙ ШУМ ИМПУЛЬСНЫЙ ШУМ 


ДЯВЛЕНИЕ 
ВОЗДУХЯ 
ДЯВЛЕНИЕ 
ВОЗДУХА 


ВРЕМЯ ВРЕМЯ 
Рис. 2 Белый и ИМПУЛЬСНЫЙ ШУМЫ. 


Последняя характеристика звука - длительность. Она создана искусственно, так как 
определяет не сам звук, а время его звучания. В основном эта характеристика используется в 
музыке. 

Все перечисленные выше параметры звука довольно относительны, потому что каждый 
человек ощущает их по-разному. Например, один и тот же звук может одному человеку казаться 
слишком громким, а другому - слишком тихим. 


ОПЕРАТОР ВЕЕР 


2. Оператор ВЕЕР. 


Единственная возможность получения звука, которую предоставляет Spectrum- бейсик - это 


оператор ВЕЕР. Его формат: 
ВЕЕР t,f 


- где t - длительность звука в секундах, а f - высота в полутонах. Чтобы ноту повысить или 


понизить на октаву необходимо её значение соответственно увеличить, или уменьшить на 12. Так 
ВЕЕР 0.5,0 


воспроизведет ноту ДО первой октавы в течение полсекунды, а 
ВЕЕР 0.5,12 


- ту же ноту ДО, но уже второй октавы. 

Указанное нотоисчисление не очень точно, поэтому взгляните на рис. 3. Там в верхней 
строчке приведены приблизительные, а в нижней - точные параметры оператора ВЕЕР для первой 
октавы. 


До Pe Ми Фа Com Ла CH Д 


ПриБл. р: ИЕ Е О а 
Точно Й 2.039 3.56 4.38 7.02 6.64 10.55 12 


Рис. 3 Параметры ВЕЕР для первой октавы. 


Музыкальный диапазон ВЕЕР достаточно широк - от -60 до 69. Он охватывает 18.5 октав, 
но самые низкие и самые высокие из них не представляют практического интереса для создания 
музыки, хотя вполне могут использоваться в звуковых эффектах. 

И в заключение можно добавить об удобстве, которое Ѕресігит-бейсик предоставляет нам в 
записи десятичных дробей. Если такая дробь меньше единицы, то ноль перед точкой можно не 


ставить. Таким образом 
ВЕЕР 0.125,11 


можно записать как 
ВЕЕР .125,11. 


Дальше по тексту книги я именно так и буду делать. 


2.1. Создание эффектов на ВЕЕРе. 


Для того чтобы сделать что-либо поинтереснее простых гудков, оператор ВЕЕР обычно 
включается в какой-нибудь цикл, где изменяются один или оба его параметра. Простейший 


пример может выглядеть так: 
10 FOR A=0 TO 60 
20 BEEP .01,A 
30 NEXT A 


Эту маленькую программку можно долго и упорно изменять, получая все новые и новые 
эффекты. Попробуйте модифицировать пределы, шаг, направление цикла, длительность в 
операторе ВЕЕР. Как это сделать, я думаю, понятно всем, поэтому примеров приводить не буду. 
Во время ваших экспериментов помните, что при маленьких длительностях низкие ноты 
воспроизводиться не будут, и чем ниже нота, тем больше должна быть длительность. 

Когда Вам надоест занятие, предложенное в предыдущем абзаце, можно переходить к 
следующему этапу - изменению "внутренностей" цикла... 

Можно увеличить число операторов ВЕЕР. Причем, они могут быть настроены как на 


одинаковые частоты и длительности, так и на разные: 
10 FOR А=0 TO 20 
20 ВЕЕР .007,А+7: BEEP .003,A 
30 NEXT A 


ОПЕРАТОР ВЕЕР 


Диапазон звучания дополнительных ВЕЕРов можно ограничить: 


10 FOR А=0 TO 69 
20 BEEP .01,A 
30 IF A>20 AND A<40 THEN BEEP .01,A+8 
40 NEXT A 
или так: 
10 FOR А=0 TO 69 


20 
30 


BEEP .0003,A-6: BEEP .001,A-3: BEEP .01,A 
NEXT A 


Последний эффект интересен тем, что в нем второй и третий ВЕЕРы вступают постепенно 


(см. сноску на предыдущей странице). 


10 
20 
30 


10 
20 
30 


10 
20 
30 


Эффект можно замедлить с помощью оператора PAUSE: 
FOR А=10 TO 40 STEP 2 

ВЕЕР .01,A: PAUSE 2 

NEXT A 


Можно в течение воспроизведения менять длительность: 
ТЕТ Т=.01 

FOR А=10 ТО 60: BEEP T,A 

ТЕТ T=T-.0002: NEXT А 


FOR A=0 ТО 60 
ВЕЕР A/500,60-A 
МЕХТ А 


В первом из этих примеров попробуйте поменять шаг или направление изменения 


длительности, начальное её значение. 


Следующий вариант - вложенные циклы, которых может быть сколько угодно. ВЕЕРы 


могут встречаться в любом из них: 


10 
20 
30 


10 
20 
30 
40 


10 
20 
30 
40 


10 
20 
30 


10 
20 
30 


10 
20 
30 


FOR А=2 ТО 5: BEEP .01,A 
ЕОВ В=20 ТО 30: ВЕЕР .01,В 
МЕХТ В: МЕХТ А 


FOR A=1 ТО 40 STEP 10 
ЕОВ В=А ТО А+20 

ВЕЕР .03,B 

МЕХТ В: МЕХТ А 


Попробуйте объединить несколько циклов. Например: 
FOR А=12 ТО 69: ВЕЕР .001,A 

МЕХТ А 

FOR А=69 ТО 12 STEP -1 

ВЕЕР.001,А: МЕХТА 


И, наконец, во всю эту коллекцию можно добавить элемент случайности: 
КОВ А=1 TO 10: LET F=RND*50 

BEEP .1,F: BEEP .1,F+7: BEEP .1,F+4 

NEXT A 


FOR A=1 TO 20 
BEEP .1,RND*20+40 
NEXT A 


FOR A=1 TO 20 
BEEP RND/6,RND*60 
NEXT A 


Bce перечисленные выше методы создания эффектов могут использоваться совместно, в 


любой комбинации. 


Ищите, пробуйте, и Вы найдете среди множества парочку подходящих для Вашей 


программы эффектов. 


2.2. Создание музыки на ВЕЕРе. 
К сожалению, на операторе ВЕЕР невозможно создать сложную музыку, но наиграть 
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ОПЕРАТОР ВЕЕР 


простенькую мелодию на нем можно. 

Первое, что приходит в голову при попытке создать мелодию, это составить цепочку из 
ВЕЕРов, которая обещает быть весьма неопределенных размеров. Этот способ примитивен, 
неудобен, занимает много места и вообще не очень красив. Ему существует несколько достойных 
замен. Например, можно использовать такой цикл: 

10 РОВ А=1 ТО 10 
20 READ T,F: ВЕЕР T,F 
30 NEXT A 

И где-нибудь в программу вставить строку, начинающуюся с оператора DATA, и 
содержащую длительности и высоты нот мелодии. В данном примере их должно быть по десять. 

В некоторых музыкальных произведениях бывают паузы. Чтобы исполнять такие мелодии, 
приведенный выше цикл придется немного модифицировать: 

10 РОВ А=1 ТО 10: READ T,F 
20 ТЕ Т=0 THEN PAUSE F*50: NEXT А 
30 BEEP T,F: NEXT А 

Теперь достаточно в данные вставить 0, а за ним длительность паузы в секундах. Вы, 
наверное, заметили, что значение паузы умножается на 50. Это делается потому, что параметр 
оператора PAUSE исчисляется в пятидесятых долях секунды. 

В таблице 1 приведено соответствие нот длительностям операторов ВЕЕР и PAUSE. В этой 
таблице даны стандартные значения нот и пауз, но в принципе можно использовать любые числа. 

Вот, к примеру, программа, исполняющая куплет детской песенки "В лесу родилась 
елочка": 

10 РОВ А=1 ТО 29: READ T,F 

20 IF Т=0 THEN PAUSE F*50: NEXT А 

30 ВЕЕР T,F: NEXT A 

9000 РАТА .25,7.02,.25,15.86,.25,15.86,.25,14.039,.25,15.86 

9010 РАТА .25,12,.25,7.02,.25,7.02,.25,7.02,.25,15.86,.25,15.86 
9020 РАТА .25,14.039,.25,20.84,.5,19.02,0,.5,.25,19.02,.25,8.84 
9030 РАТА .25,8.84,.25,16.98,.25,16.98,.25,15.86,.25,14.039,.25,12 
9040 РАТА .25,7.02,.25,15.86,.25,15.86,.25,14.039,.25,15.86,.5,12 

В эту программу можно ввести возможность изменения темпа. Для этого необходимо 

первые три строки заменить следующими: 
5 LET М=.5 
10 FOR A=1 TO 29: READ T,F 
20 IF T=0 THEN PAUSE F*N*50: NEXT A 
30 BEEP T*N,F: NEXT A 

Теперь Вы можете добиться желаемого темпа исполнения мелодии, подставляя различные 
значения в пятую строку. Однако не советую Вам вставлять туда 0 и очень большие числа. 

Можно ещё усовершенствовать эту программку. Например, вставить контроль нажатия 
клавиши, сделать её более гибкой в отношении длины мелодии, оформить как подпрограмму и т. 
д. Конечный вариант может выглядеть так: 

9090 РАТА 100 

9100 ТЕТ N=.5: RESTORE 9000 

9110 READ T,F 

9120 IF T=100 OR ТМКЕУ$<>"" THEN RETURN 
9130 IF T=0 THEN PAUSE F*N*50: GO TO 9110 
9140 BEEP T*N,F: GO TO 9110 

Удалите все строки с 5 no 30 предыдущей программы и введите эти. Теперь Вы можете 
вызывать мелодию на исполнение оператором СО ЗОВ 9100. Кроме того, теперь не надо 
старательно вычислять количество нот в мелодии: достаточно в её конец вставить число 100 (что 
собственно и сделано в строке 9090). Также Вы можете в любой момент прервать исполнение, 
нажав любую клавишу. Если мелодия кончится - подпрограмма также закончит свою работу. При 
повторном запуске мелодия начнется сначала, но, если убрать оператор RESTORE 9000, то она 
продолжится с того места, где была прервана (если, конечно, Вы не использовали оператор READ 
или RESTORE после её вызова). 

Можно сделать проигрывание циклическим. Для этого придется поменять ещё пару строк: 

9120 ТЕ ТМКЕУ$<>"" THEN RETURN 
9125 ТЕ Т=100 ТНЕМ СО ТО 9100 


ОПЕРАТОР ВЕЕР 


Теперь вернуться из подпрограммы можно только по нажатию клавиши. Зато мелодия 
будет звучать пока кому-нибудь совсем не надоест. 

Программы такого типа идеальны для простого исполнения, без замены и сохранения 
мелодии, но, если Вы хотите записать свое произведение на магнитофон, и загружать его прямо из 
работающей программы, то Вам подойдет следующий фрагмент: 

10 FOR A=3 TO D(1)*2+2 STEP 2 

20 IF D(A)=0 THEN PAUSE D(A+1)*D(2)*50: NEXT A 
30 BEEP D(A)*D(2) ,D(A+1) 

40 NEXT A 

Для Toro чтобы OH заработал, перед ero запуском необходимо объявить и заполнить массив 
D, содержащий такую информацию о мелодии: 

ро) - количество нот 
D(2) - темп исполнения 
D(3) - длительность | 
D(A) - нота 1 


D(N) - длительность М 
D(N+1)-Hota N 


Его можно загрузить с кассеты, подав прямую команду 
LOAD "пате" DATA D() 


или заполнить из строчек DATA, следующей программкой: 
10 DIM D(20): RESTORE 
20 FOR A=1 TO 20: READ D(A) 
30 NEXT A 
Обратите внимание, что первые две цифры данных должны быть количеством HOT и 
темпом. 


Созданный таким образом массив можно сохранить на ленте, командой 
SAVE "name" DATA D() 


Приведу ещё один пример подобной программы, оформленный по последнему писку моды: 
9100 ТЕТ А=2 
9110 ТЕ D(A)=100 THEN GO TO 9100 
9120 IF INKEY$<>"" THEN RETURN 
9130 IF D(A)=0 THEN PAUSE D(A+1)*D(1)*50: GO TO 9150 
9140 BEEP D(A) *D(1) ,D(A+1) 
9150 LET A=A+2: GO TO 9110 
Массив для этой подпрограммы должен быть таким: 
ЮО@) - темп исполнения 
D(2) - длительность | 
D(3) - нота 1 


D(N) - длительность М 
D(N+1)-Hota М 
D(N+2) - 100 
Заметьте, что количество нот указывать не надо. На основе этого примера можно сделать 
даже музыкальный редактор. 
Теперь вернемся к составлению цепочек данных. 
Допустим, на нотном стане Вы увидели ноту точь в точь, как на рис. 4. Это ЛЯ первой 
октавы. Из рисунка 3 видно, что её частота запишется как 8.84. 


ОПЕРАТОР ВЕЕР 


= 


Рис. 4 
Это одна четвертая, и, взглянув на таблицу 1, можно определить, что её длительность будет 
.25. Таким образом, пара данных для этой ноты будет .25,8.84. Для всех последующих нот 
вычисления будут такими же. 


Одна восьмая 


ее. bend 


1875 | 9.375 


Одна четвертая 
18.75 
Pa 


Одна вторая | 


Одна вторая с точкой 
Целая 1. 


о 


Табл. 1. Длительности нот для ВЕЕР и PAUSE. 
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КАК ПОЛУЧАЕТСЯ ЗВУК 


3. Как получается звук. 


К сожалению, в ZX-Spectrum для управления звуком отведен всего-навсего один бит. Это 
бит D4 порта 254 (#FE). Но, несмотря на это, программисты умудряются создавать довольно 
красивые мелодии и эффекты. 

Когда этот бит, установлен, на динамик (усилитель) подается напряжение, и его мембрана 
находится в одном положении. Когда же он сброшен, на динамике напряжения нет, и мембрана 
находится в другом положении. Таким образом, если Вы будете изменять состояние этого бита с 
достаточно высокой частотой, то мембрана будет вибрировать, и Вы услышите звук. 

Использовать этот способ можно даже из бейсика: 

10 FOR А=1 ТО 300: OUT 254,23 
20 OUT 254,7: NEXT А 

И так же легко на ассемблере, но в этом случае придется запрещать прерывания, если Вы 

хотите получить качественное звучание: 


10 DI ; запрет прерываний 

20 LD BC, 2560 ; ВС=длительность 

30 LD A,7 ; A=uBeT бордюра 

40 ВЕСТМ XOR 16 ; инвертирование бита D4 
50 OUT (254),A ; вывод A в порт 254 

60 LD D,100 ; р=задержка (частота) 
70 PAUSE DEC D ; D=D-1 

80 JR NZ, PAUSE ; если 0<>0, то цикл 

90 DEC BC ; BC=BC-1 

100 LD D,A ; сохранение A 

110 LD A,B 7 BGS 

120 OR Ç ; 0 ? 

130 LD A,D ; восстановление A 

140 JR NZ,BEGIN ; если ВС<>0, то цикл 
150 ЕТ ; разрешение прерываний 
160 RET ; возврат в бейсик 


Вы, наверное, заметили, что в этих программах в порт выводится не 16 и 0, что 
соответствовало бы установке и сбросу бита D4, а 23 и 7. Дело в том, что этот порт кроме 
динамика управляет ещё цветом бордюра и выходом на магнитофон. Познакомимся с его 
возможностями поближе: 

биты DO...D2 определяют цвет бордюра: 


000(0) - черный 100(4) - зеленый 
001(1) - синий 101(5)- голубой 
010(2) - красный 110(6) - желтый 


011(3) - фиолетовый 111(7) - белый 
бит D3 управляет выходом на магнитофон, 
бит D4 управляет звуком, 
биты 05...07 не используются. 
При вводе байта из порта бит D6 контролирует магнитофонный вход. 

Думаю, теперь понятно, откуда взялись цифры 23 и 7: для установки и сброса бита D4 
необходимо последовательно вывести в порт значения 16 и 0. Но при этом надо сохранять цвет 
бордюра равный 7 (белый). Следовательно, первое значение будет равно 16+7=23, а второе - 
0+7=7.Вообще то, Вы можете устанавливать любой цвет бордюра. Более того, можно создавать на 
нем различные цветовые эффекты. Для этого достаточно при инвертировании звукового бита 
использовать разные цвета бордюра. 

Вы, наверное, заметили, что в приведенной выше программе на ассемблере, запрещаются 
прерывания. Думаю, стоит это пояснить. Дело в том, что ZX Spectrum устроен так, что каждую 
пятидесятую долю секунды вызывается подпрограмма ПЗУ, расположенная с адреса 56 (#38). И, 
если Вы хотите получить качественный (не трещащий) звуковой сигнал, то её надо отключить, что 
и достигается запрещением прерываний (команда DI). При возврате в бейсик прерывания 
необходимо снова разрешать (команда ET). 
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ПРОГРАММИРОВАНИЕ ЗВУКА В КОДАХ 


4. Программирование звука в кодах. 


Простейший пример воспроизведения звукового сигнала в кодах был приведён в 


предыдущей главе. В принципе, это единственный способ получения звука, но оформить его 
можно по-разному. Например, как универсальную подпрограмму: 
10 DI ; запрет прерываний 

20 ВЕЕР LD A,B ; А=цвет бордюра 

30 SE 4,A ; бит D4=1 

40 OUT (254),A ; вывод A в порт 254 

50 PUSH HL ; сохранение HL 

60 ТООРТ DEC НІ, ; HL=HL-1 

70 LD А,Н ; НІ= 

80 OR L i Oi 

90 JR NZ, LOOP1 ; если нет, то цикл 

100 РОР HL ; восстановление HL 

110 LD A,C ; А=цвет эффекта 

120 OUT (254),A ; вывод A в порт 254 
130 PUSH HL ; сохранение HL 

140 LOOP2 DEC НІ, ; HL=HL-1 

150 LD А,Н ; НІ= 

160 ОВ. L 0? 

170 JR NZ, LOOP2 ; если нет, то цикл 

180 РОР HL ; восстановление HL 

190 DEC DE ; DE=DE-1 

200 LD A,D ; DE= 

210 OR Е РО 2 

220 JR NZ, BEEP ; если нет, то цикл 

230 ЕТ ; разрешение прерываний 
240 КЕТ ; возврат в бейсик 


Перед вызовом этой подпрограммы необходимо занести в регистровую пару HL частоту, в 
РЕ - длительность, в В - цвет бордюра, а в С - цвет эффекта (если Вы хотите видеть бордюр 
однотонным, то значение С должно быть равно В). Кроме того, если к регистру В прибавить 8 
(установить бит D3), то вместе с динамиком сигнал будет подаваться на магнитофон. Можно 
сделать эту программу универсальной несколько в другом смысле: 


10 DI ; запрет прерываний 
20 LD A, (23624) ; A= 

30 SRL A А цвет 

40 SRL A Я бор- 

50 SRL A ; дюра 

60 ВЕЕР XOR 16 ; инвертирование бита D4 
70 OUT (254),A ; вывод A в порт 254 
80 LD C,A ; сохранение A 

90 PUSH HL ; сохранение HL 

100 PAUSE DEC HL ; HL=HL-1 

110 LD А,Н ; НІ= 

120 OR Ё ; 0? 

130 JR NZ, PAUSE ; если нет, то цикл 
140 РОР HL ; восстановление HL 
150 РЕС DE ; DE=DE-1 

160 LD A,D ; DE= 

170 OR E + 072 

180 LD A,C ; восстановление A 
190 JR NZ, ВЕЕР ; если DE<>0, то цикл 
200 ЕТ ; разрешение прерываний 
210 RET ; возврат в бейсик 


Этой подпрограмме надо передать только частоту в регистре HL и длительность в DE, а 
цвет бордюра сохраняется тот, который был при её вызове (если только он не был установлен 
оператором ОПТ). 

Примерно такая же подпрограмма имеется в ПЗУ ZX-Spectrum. Она расположена с адреса 
949 (#0385). Параметры как и раньше, передаются в регистрах HL и DE. Их значения можно 
рассчитать по следующим формулам: 
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ПРОГРАММИРОВАНИЕ ЗВУКА В КОДАХ 


HL=INT(437500/f-30.125+.5) DE=INT(f*t+.5) 
- где f - частота в Гц, at- время в сек. 
Частоту нот для пятой октавы можно взять из таблицы 2. Чтобы ноту повысить или 
понизить на октаву, её частоту надо соответственно умножить или разделить на 2. Причем, при 
делении значения получаются немного точнее, чем при умножении. 


до __| с | 4186.01 | 
ЕЕ о | 4638.64 | 
[РЕ-диз | DH | 4978.03 | 
ми | Е | 5274.04 | 
|Р | 5587.65 | 5 


ла | A | 7040.00 | 
|Ла-днез | Өй | 7458.62 | 
ш. в | 7902.13 | 
до | с | 6372.2 | 6 | 


Табл. 2. Частоты нот для 5-ой октавы. 


При генерации звука всеми способами, приведенными выше, необходимо учитывать, что 
чем выше тон, тем короче будет длительность. 

Если Вы хотите при программировании звука в кодах использовать привычные параметры 
оператора ВЕЕР, то Вы можете воспользоваться подпрограммой ПЗУ, расположенной по адресу 
1016 (#03Е8). Правда, с ней связаны некоторые трудности. 

Дело в том, что параметры ей передаются через стек калькулятора, а засунуть туда дробное 
или отрицательное число не так-то просто. 

Чтобы обойти это неудобство существует три основных способа. Первый - хранить 
необходимые значения в стандартной пятибайтовой форме и помещать их в стек с помощью 
специальной подпрограммы ПЗУ. Второй - хранить эти значения в символьной форме и помещать 
их в стек с помощью другой специальной подпрограммы ПЗУ. И третий - немножко изменить 
систему параметров и заняться вычислениями. 

Первый способ не годится из-за слишком большого объема расходуемой памяти. Второй - 
по той же причине, плюс слишком медленная его работа. Остается третий способ. Он вполне 
подходит и его можно легко осуществить. 

Пусть длительности задаются в сотых долях секунды, а высоты нот, как раньше, в 
полутонах выше или ниже ДО первой октавы. Такая система параметров позволяет получать ноты 
длительностью до 2.55 секунд с частотами в диапазоне от -60 до 69 (как в бейсике). Длительность 
ноты будет задаваться в регистре С, а высота - в регистре В. 

Вот подпрограмма, осуществляющая все вышеописанное: 


10 РОЗН ВС ; сохранение ВС 

20 LD A,C ; А=С (длительность) 

30 CALL 11560 ; поместить А в стек калькулятора 

40 LD A,100 ; A=100 

50 CALL 11560 ; поместить А в стек калькулятора 

60 RST 40 ; вызов калькулятора 

70 РЕЕВ 5,56 ; деление длительности на 100 

80 РОР BC ; восстановление BC 

90 LD A,B ; A=B (частота) 

100 BIT 7, А ; А - отрицательное ? 

110 JR NZ,MINUS ; если да, то перейти на MINUS 

120 CALL 11560 ; иначе, поместить А в стек калькулятора 
130 JP 1016 ; вызов подпрограммы воспроизведения 
140 MINUS NEG ; в А - абсолютное значение 

150 CALL 11560 ; поместить А в стек калькулятора 
160 RST 40 ; вызов калькулятора 

170 DEFB 27,56 ; изменение знака 

180 JP 1016 ; вызов подпрограммы воспроизведения 
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ПРОГРАММИРОВАНИЕ ЗВУКА В КОДАХ 


Если Ваш ассемблер не "переваривает" отрицательные числа (бывают такие "штучки"), то 
необходимые значения можно рассчитать по следующей формуле: п=256-х, - где х - абсолютная 
величина значения, а п- результат. 


4.1. Программирование звуковых эффектов. 


Вообще-то, программирование эффектов в кодах мало отличается от аналогичного занятия 
на бейсике, но Вы получаете значительное преимущество за счёт быстродействия. Поэтому, кроме 
чистого тона на ассемблере можно создавать и шум. 


4.1.1. Тон. 


Начнем с эффектов, основанных на генерации тона. Что они из себя представляют? 
Примерно то же, что и эффекты на бейсике: звук с плавно изменяющейся частотой. Для полного 
сходства можно даже использовать ту же подпрограмму из ПЗУ: 


10 LD B, 30 ; В=количество HOT 

20 LD HL, 100 ; НІ=начальная частота 
30 LOOP LD DE,2 ; ОЕ=длительность 

40 PUSH HL ; сохранение HL 

50 PUSH BC ; сохранение BC 

60 CALL 949 ; вызов подпрограммы ПЗУ 
70 РОР ВС ; восстановление ВС 

80 РОР HL ; восстановление HL 

90 LD DE,25 ; ОЕ=шаг изменения частоты 
100 ADD HL, DE ; увеличение HL 

110 DINZ LOOP ; цикл 

120 RET ; возврат в бейсик 


Скорее всего, Вы заметили, что в этом эффекте не запрещаются прерывания, а качество 
сигнала ничуть не ухудшилось (см. главу "Как получается звук"). Дело в том, что вызываемая 
подпрограмма все необходимое делает сама. 

Если Вы уже успели набрать и запустить этот фрагмент, то, наверное, ощутили разницу в 
звучании, причем не в пользу бейсика. 

Несколько модифицировать данный эффект можно изменяя не всю частоту, а только её 
младший байт: 


10 LD B, 60 ; В=количество HOT 

20 LD C,50 ; С=шаг изменения частоты 
30 LD HL, 300 ; НІ=начальная частота 
40 ТООР LD DE, 10 ; ОЕ=длительность 

50 PUSH HL ; сохранение HL 

60 PUSH BC ; сохранение BC 

70 CALL 949 ; вызов подпрограммы ПЗУ 
80 РОР BC ; восстановление BC 

90 РОР HL ; восстановление HL 

100 LD A,L ; увели- 

110 ADD С Н чение 

120 iD ЈА АВГ 

130 РОМА LOOP ; цикл 

140 КЕТ ; возврат в бейсик 


От использования подпрограмм ПЗУ перейдем к созданию собственных. Звучание 
предыдущих примеров можно сделать более плавным и протяжным: 


10 DI ; запрет прерываний 
20 XOR A ; А=цвет бордюра (0) 
30 LD B,255 ; В=начальная частота 
40 LD GC, 255 ; С=длительность 

50 ВЕЕР XOR 16 ; инвертирование бита D4 
60 OUT (254),A ; вывод A в порт 254 
70 PUSH BC ; сохранение BC 

80 LOOP DJNZ LOOP ; задержка 

90 POP BC ; восстановление BC 
100 DEC B ; уменьшение В 

110 DEC С ; C=C-1 

120 JR NZ, BEEP ; если С<>0, то цикл 
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130 ЕТ ; разрешение прерываний 

140 RET ; возврат в бейсик 
Возможности этого эффекта легко увеличиваются: 

10 DI ; запрет прерываний 

20 XOR A ; А=цвет бордюра (0) 

30 LD Ву 255 ; В=количество HOT 

40 LD ©. ; С=начальная частота 

50 ТООРТ PUSH BC ; сохранение BC 

60 LD B,5 ; В=длительность 

70 LOOP2 XOR 16 ; инвертирование бита D4 

80 OUT (254),A ; вывод A в порт 254 

90 PUSH BC ; сохранение BC 

100 LD BiG ти Веб 

110 LOOP3 DJNZ LOOP3 ; задержка 

120 POP BC ; восстановление BC 

130 DJNZ LOOP2 ; цикл 

140 РОР ВС ; восстановление ВС 

150 INC С ; увеличение С 

160 DJNZ LOOP1 ; второй цикл 

170 ЕТ ; разрешение прерываний 

180 RET ; возврат в бейсик 
Скорее всего, Вы заметили, что в первом варианте задержка уменьшается, а во втором 


увеличивается. Ничто не мешает Вам сменить направление её изменения. Для этого только стоит 
выбрать команду DEC (уменьшение) или INC (увеличение). Также можно настроить и 
длительность, начальную частоту и т. п. 

Можно изменить шаг смещения частоты: 


10 DI ; запрет прерываний 

20 XOR A ; А=цвет бордюра (0) 

30 LD B,255 ; В=начальная частота 

40 LD С, 255 ; С=длительность 

50 ВЕЕР XOR 16 ; инвертирование бита D4 

60 OUT (254),A ; вывод A в порт 254 

70 РОЗН ВС ; сохранение ВС 

80 LOOP DJNZ LOOP ; задержка 

90 POP BC ; восстановление BC 

100 ЕХ АЕ, АЕ! ; смена регистров А и Е на альтернативные 

110 LD A,B ; A=B 

120 SUB 3 ; A=A-3 

130 LD B,A ; BEA 

140 EX AF,AF' ; обратная смена регистров 

150 DEC С ; С=С-1 

160 JR NZ, BEEP ; если С<>0, TO цикл 

170 ЕТ ; разрешение прерываний 

180 RET ; возврат в бейсик 
Теперь воспользуемся свободой действий, которую нам предоставляет программирование в 

кодах. Напишем нестандартную процедуру воспроизведения: 

10 DI ; запрет прерываний 

20 LD р, 10 ; Р=задержка 1 

30 iD E,100 ; Е=задержка 2 

40 LD Cy.255 ; С=длительность 

50 XOR A ; А=цвет бордюра (0) 

60 LOOP1 XOR 16 ; инвертирование бита D4 

70 OUT (254),A ; вывод A в порт 254 

80 LD B,D ; B=D 

90 LOOP2 DJNZ LOOP2 ; задержка 

100 XOR 16 ; инвертирование бита D4 

110 OUT (254),A ; вывод A в порт 254 

120 LD В,Е ; ВЕБ 

130 LOOP3 DJNZ LOOP3 ; задержка 

140 INC D ; увеличение р 

150 INC Е ; увеличение Е 

160 DEC С ; С=С-1 

170 JR NZ, LOOP1 ; если С<>0, то цикл 
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180 ЕТ ; разрешение прерываний 
190 RET ; возврат в бейсик 

Здесь тоже можно долго и старательно варьировать параметры (см. Приложение | - Flowing 
2). 


Довольно интересный эффект получается при использовании регистра К, значение 
младших семи битов которого увеличивается после выполнения очередного машинного цикла. 
Этот эффект можно условно назвать "полушумом". 

Вот пример такого эффекта: 


10 DI ; запрет прерываний 
20 LD C53 ; С=задержка 1 
30 LD В, 207 ; В=задержка 2 
40 iD E,203 ; Е=длительность 
50 LD D, 0 ; D=uBeT бордюра 
60 LD A,128 ; А=темп (0/128) 
70 LD R,A ; R=A 
80 BEGIN LD A,R ; A=R 
90 PAUS1 DEC A ; A=A-1 
100 JR NZ, PAUS1 ; если А<>0, то цикл 
110 LD A,D ; A=D 
120 OR 16 ; установка бита D4 
130 OUT (254),A ; вывод A в порт 254 
140 LD A,C ; A=C 
150 PAUS2 DEC A ; A=A-1 
160 JR NZ, PAUS2 ; если А<>0, то цикл 
170 LD A,D ; A=D 
180 OUT (254),A ; вывод A в порт 254 
190 LD A,B ; A=B 
200 PAUS3 DEC A ; A=A-1 
210 JR NZ, PAUS3 ; если А<>0, TO цикл 
220 INC Ç ; С=С+1 
230 INC B ; В=В+1 
240 DEC E ; E=E-1 
250 JR NZ, BEGIN ; если Е<>0, то цикл 
260 ЕТ ; разрешение прерываний 
270 КЕТ ; возврат 

Значения в строках 20 и 30 определяют задержки между перепадами уровня, в строке 40 - 


длительность эффекта, в строке 50 - цвет бордюра, а в строке 60 -темп. В строке 60 имеет смысл 
употреблять только значения 0 и 128, так как все остальные будут аналогичны этим. В строках 220 
и 230 Вы можете установить закон изменения обеих задержек (команды INC, DEC и МОР с 
регистрами В и С в любой комбинации). 

Если Вы не запутались во всех этих примерах, то перейдем к генерации шума. Если же Вы 
все-таки ничего не поняли, то советую испытать эти эффекты и поизменять их параметры. 


4.1.2. Шум. 


Что из себя представляет шум? Это последовательность импульсов случайной 
длительности. Поэтому для его создания нам понадобятся случайные данные. Где их взять? 
Единственный подходящий источник - ПЗУ, в котором записан интерпретатор бейсика. ПЗУ 
расположено с адреса 0 до 16383 (#ЗЕЕЕ). Правда, значения эти будут не совсем случайные, 
точнее совсем не случайные, но нас они устроят. 

Создавать шум можно двумя разными способами. Они немного отличаются по звучанию. 
Первый из них состоит в выводе в порт значений, прочитанных из ПЗУ. Второй же - в 
использовании этих значений в качестве задержки. 

При генерации шума любым из этих способов прерывания запрещать не обязательно, так 
как в шуме потрескивание слышно не будет. 

При использовании первого способа из каждого байта можно извлечь данные на восемь 
проходов цикла воспроизведения, но это не выгодно с программной точки зрения. Поэтому, в 


большинстве эффектов из байта берется одно значение. Например: 
10 LD HL, 0 ; НІ=адрес ПЗУ 
20 LD BC, 1000 ; ВС=длительность 
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30 BEGIN РОЗН ВС ; сохранение ВС 

40 LD A, (HL) ; А=содержимое ячейки ПЗУ 

50 AND 240 ; сброс битов бордюра 

60 OUT (254),A ; вывод A в порт 254 

70 LD B, 50 ; В=частота 

80 LOOP DJNZ LOOP ; задержка 

90 INC HL ; HL=HL+1 

100 POP BC ; восстановление BC 

110 DEC BC ; BC=BC-1 

120 LD A,B 7 ВС= 

130 OR С 7 О: 

140 JR NZ,BEGIN ; цикл 

150 RET ; возврат в бейсик 
Пример применения второго способа: 

10 LD HL, 0 ; НІ=адрес ПЗУ 

20 LD BC, 1000 ; ВС=длительность 

30 XOR A ; A=uBeT бордюра (0) 

40 BEGIN PUSH BC ; сохранение BC 

50 XOR 16 ; инвертирование бита D4 

60 OUT (254),A ; вывод A в порт 254 

70 LD B, (HL) ; В=содержимое ячейки ПЗУ 

80 LOOP1 DJNZ LOOP1 ; задержка 

90 LD B, 40 ; В=частота 

100 LOOP2 DJNZ LOOP2 ; Задержка 

110 INC HL ; HL=HL+1 

120 POP BC ; восстановление ВС 

130 DEC BC ; BC=BC-1 

140 LD D,A ; сохранение A 

150 LD A,B 7 B= 

160 OR С #02 

170 LD A,D ; восстановление A 

180 JR NZ, BEGIN ; цикл 

190 КЕТ ; возврат в бейсик 


Если в этих эффектах команду INC HL заменить на INC Г, то их звучание станет как бы 
скачущим. Это происходит из-за того, что данные берутся не из всего заданного объема ПЗУ, а из 
его части размером 256 байт. Причем, когда эта часть кончается, чтение продолжается с её начала. 


Попробуйте поизменять другие параметры. 


Следующий шаг - шум с изменяющейся частотой. Выглядеть это будет примерно так: 


10 LD HL, 0 ; НІ=адрес ПЗУ 

20 LD B, 100 ; В=длина эффекта 

30 LD C,10 ; С=начальная частота 
40 ТООРТ РОЗН ВС ; сохранение ВС 

50 LD B, 20 ; В=длительность 

60 LOOP2 iD A, (HL) ; А=содержимое ячейки ПЗУ 
70 AND 240 ; сброс битов бордюра 
80 OUT (254),A ; вывод A в порт 254 
90 PUSH BC ; сохранение BC 

100 LD B,C ; Вес 

110 ГООРЗ РОМА LOOP3 ; задержка 

120 INC НІ, ; HL=HL+1 

130 РОР вс ; восстановление ВС 
140 РОМА LOOP2 ; цикл 

150 РОР ВС ; восстановление ВС 
160 INC С ; увеличение задержки 
170 РОМА LOOP1 ; цикл 

180 КЕТ ; возврат в бейсик 


Этот эффект тоже можно изменить до неузнаваемости: 


сменить длину, 


частоту, 


длительность, шаг смещения частоты, направление смещения частоты (команда INC С или DEC 


С), вид шума (команда INC HL или INC 1). 
Еще один вариант шумового эффекта: 


10 LD HL, 0 ; НІ=адрес ПЗУ 
20 LD D, 100 ; р=задержка 1 
30 AD) E,10 ; Е=задержка 2 
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40 LD C255 ; С=длительность 

50 XOR A ; A=uBeT бордюра (0) 

60 BEGIN XOR 16 ; инвертирование бита D4 
70 OUT (254),A ; вывод А B порт 254 

80 LD B, (HL) ; В=содержимое ячейки ПЗУ 
90 ТООРТ DJNZ LOOP1 ; задержка 1 

100 LD B,D ; B=D 

110 LOOP2 DJNZ LOOP2 ; задержка 2 

120 XOR 16 ; инвертирование бита D4 
130 OUT (254),A ; вывод A в порт 254 

140 LD B, (HL) ; В=содержимое ячейки ПЗУ 
150 LOOP3 DJNZ LOOP3 ; задержка 3 

160 LD В,Е ВЕ 

170 LOOP4 DJNZ LOOP4 ; задержка 4 

180 INC HL ; HL=HL+1 

190 INC D ; увеличение Р 

200 INC Е ; увеличение Е 

210 РЕС С з C=C-1 

220 JR NZ, BEGIN ; если С<>0, TO цикл 

230 ВЕТ ; возврат в бейсик 


Над этим примером можно издеваться так же долго, как и над всеми предыдущими. 

Все эффекты, приведенные в данной главе, можно рассматривать как заготовки. Чтобы 
получить конечные варианты Вам, возможно, придется потрудиться. Как уже было сказано, все 
они имеют огромное число вариантов. Кроме того, Вы можете объединить несколько эффектов 
вместе, или вызывать их на выполнение в цикле и т. п. Все основные принципы комбинации 
эффектов перечислены в главе 2.1. 

Все эффекты написаны так, чтобы можно было изменять максимальное число параметров. 
В случаях конкретного применения их можно значительно упрощать. Вот пример 
скомбинированного и упрощенного эффекта: 


10 DI ; запрет прерываний 

20 iD E,100 ; Е=длительность цикла 
30 LD C,0 ; C=uBeT бордюра 

40 LD B,4 ; В=число циклов 

50 AD) „1 ; һ=смещение частоты 

60 LD H, 30 ; Н=начальная частота 
70 LOOP1 LD D,E ; D=E 

80 LOOP2 D А, С ; А=С 

90 XOR 16 ; инвертирование бита D4 
100 OUT (254),A ; вывод A в порт 254 
110 LD C,A 7 C=A 

120 LD А,Н ; A=H 

130 ADD A,L ; прибавить L K A 

140 LD H,A ; H=A 

150 LOOP3 DEC A ; А=А-1 

160 JR NZ, LOOP3 ; если А<>0, TO цикл 
170 DEC D ; D=D-1 

180 JR NZ, LOOP2 ; если 0<>0, то цикл 
190 LD A,L ; A=L 

200 NEG ; изменение знака регистра А 
210 р ‚А ; L=A 

220 DJNZ ТООРТ ; цикл 

230 ЕТ ; разрешение прерываний 
240 RET ; возврат 


Все вышеприведенные эффекты Вы можете настроить под собственные нужды. Например, 
изменить цвет бордюра или сделать так, чтобы сигнал кроме динамика выводился на магнитофон 
(для этого все команды ХОК 16 надо заменить на ХОК 24, а AND 240 на AND 248). 


4.1.3. Комплексы эффектов. 


Обычно в играх (да и в любых других программах) используется не один и не два звуковых 
эффекта, а гораздо больше. Поэтому эффекты удобно объединять в группы (комплексы) и 
вызывать их на исполнение одной подпрограммой, передавая ей в качестве параметра номер 
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эффекта. 


Если эффекты разнообразны и воспроизводятся различными подпрограммами, то в таблице 
эффектов лучше всего хранить адреса этих подпрограмм. В таком случае для воспроизведения 
эффектов можно воспользоваться такой подпрограммой: 


10 ADD A,A ; A=A*2 

20 iD E,A ; DE 

30 LD D, 0 ; =A 

40 LD HL, TABLE ; НІ=адрес таблицы 

50 ADD HL, DE ; HL=HL+DE 

60 AD E, (HL) ; DE= 

70 INC HL ; адрес 

80 LD D, (HL) ; подпрограммы 

90 ЕХ DE, HL ; обменять значениями HL и DE 
100 JP (HL) ; вызов подпрограммы эффекта 
110 TABLE РЕЕРИ ... ; таблица адресов 


Перед вызовом этой подпрограммы в регистр А надо занести номер эффекта. Не забудьте 
также заполнить таблицу адресами эффектов. Естественно, сами эффекты должны располагаться 
по указанным адресам. Ни в коем случае не стоит указывать номер эффекта больше числа 
описанных в таблице подпрограмм, иначе компьютер "зависнет" или "сбросится". Учтите также, 
что эта подпрограмма может работать максимум со 127 эффектами. 

Если эффекты однотипные и воспроизводятся одной и той же подпрограммои, то в таблице 
эффектов можно хранить параметры этой подпрограммы. Вот пример, использующий данный 
способ: 


10 р Е, А ЈА 

20 ADD A,A ; = 

30 ADD A, E 7 A*3 

40 D E,A ; DE 

50 LD р, 0 ; =А 

60 LD HL, TABLE ; НЬ=адрес таблицы 

70 ADD HL,DE ; HL=HL+DE 

80 LD C, (HL) ; С=длительность 

90 INC HL ; HL=HL+1 

100 iD E, (HL) ; Е=частота 

110 INC HL ; HL=HL+1 

120 LD A, (HL) ; А=изменение частоты 
130 LD (CHNG),A ; установка изменения частоты 
140 DI ; запрет прерываний 

150 XOR A ; А=цвет бордюра (0) 

160 ВЕСТМ XOR 16 ; инвертирование бита D4 
170 OUT (254),A ; вывод A в порт 254 

180 LD B,E ; BSE 

190 PAUSE DJNZ PAUSE ; задержка 

200 CHNG NOP ; резерв для изменения частоты 
210 DEC С есаб 

220 JR NZ,BEGIN ; если С<>0, то цикл 

230 ЕТ ; разрешение прерываний 
240 RET ; возврат 

250 TABLE DEFB 0,0,28 ; таблица 

260 РЕЕВ 0,0,29 

270 DEFB 0,128,28 A эффектов 

280 РЕЕВ 0,128,29 


Перед вызовом этой подпрограммы в регистр А надо занести номер эффекта. В 
приведенной программе уже созданы четыре эффекта, но Вы можете изменить их или увеличить 
их число. При вызове эффекта, номер которого болыше числа описанных подпрограмм, также 
может произойти что-нибудь ужасное. 

В этом примере на описание эффекта отводится три байта. Первый байт - длительность 
эффекта, второй - начальная частота, а третий - способ изменения частоты. Третий байт может 
принимать значения 0,28 и 29. Что означает, соответственно, сохранение, увеличение и 
уменьшение частоты. Заносить какие-либо другие значения в этот байт не стоит, так как это может 
привести к непредсказуемым последствиям. 
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Приведенная программа является только примером. Вы можете настроить её для работы с 
абсолютно любым эффектом. 

Эта подпрограмма может работать максимум с 85 эффектами. 

В обеих приведенных подпрограммах нумерация эффектов начинается с нуля. 


4.2. Управление громкостью. 


Вообще-то, ZX-Spectrum абсолютно не приспособлен для управления громкостью, но её 
все-таки можно изменять в небольших пределах благодаря относительно высокой тактовой 
частоте микропроцессора 7-80 (около 3.5 МГц). 

Как уже говорилось в главе 2, когда Вы посылаете сигнал на динамик, его мембрана 
изменяет свое положение. Если во время её движения послать обратный сигнал, то она вернется в 
исходное положение, не пройдя нужного пути. Таким образом, амплитуда (соответственно и 
громкость) будет меньше обычной. Для примера, сравните звучание таких двух практически 
одинаковых программ: 


10 РКОСІ DI ; запрет прерываний 

20 LD B,255 ; В=частота 

30 LD 0725.9 ; С=длительность 

40 XOR A ; А=цвет бордюра (0) 

50 LOOP1 XOR 16 ; инвертирование бита D4 
60 OUT (254),A ; вывод А B порт 254 

70 PUSH BC ; сохранение BC 

80 LOOP2 DJNZ LOOP2 ; задержка 

90 POP BC ; восстановление BC 

100 DEC С ; С=С-1 

110 JR NZ, LOOP1 ; если С<>0, то цикл 

120 ЕТ ; разрешение прерываний 
130 RET ; возврат в бейсик 

10 PROG2 DI Є 

20 LD 87255 Н 

30 LD C,255 А 

40 XOR A ү; 

50 LOOP1 XOR 16 ; все 

60 OUT (254), А ; 

70 XOR 16 ; (кроме этих двух строк, 
80 OUT (254),A ; повторяющих предыдущие) 
90 PUSH BC А 

100 LOOP2 DJNZ LOOP2 ; аналогично 

110 РОР ВС ў 

120 DEC С ; предыдущему 

130 JR NZ, ТООР1 н 

140 ЕТ ; примеру ! 

150 КЕТ ; 


Когда Вы их наберете на ассемблере и запустите, Вы сильно удивитесь. Однако против 
фактов не попрёшь - вторая подпрограмма будет звучать в несколько раз тише первой! 
Приведу текст более универсальной подпрограммы: 


10 DI ; запрет прерываний 

20 LD B, 50 ; В=громкость 

30 LD C,50 ; С=частота 

40 LD D, 15 ; О=длительность 

50 iD Е, 50 ; Е=количество нот 

60 XOR A ; А=цвет бордюра (0) 

70 ТООРТ PUSH DE ; сохранение DE 

80 ТООР2 PUSH BC ; сохранение BC 

90 XOR 16 ; инвертирование бита D4 
100 OUT (254),A ; вывод A в порт 254 

110 LOOP3 DJNZ LOOP3 ; задержка (громкость) 
120 XOR 16 ; инвертирование бита D4 
130 OUT (254),A ; вывод A в порт 254 

140 LD B,C ; В=С 

150 LOOP4 DJINZ LOOP4 ; задержка (частота) 
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160 РОР ВС ; восстановление ВС 
170 DEC D ; D=D-1 

180 JR NZ, LOOP2 ; если 0<>0, то цикл 
190 РОР DE ; восстановление DE 
200 МОР ; резерв 

210 МОР ; резерв 

220 МОР ; резерв 

230 DEC Е ; Е=Е-1 

240 JR NZ, LOOP1 ; если Е<>0, то цикл 
250 ЕТ ; разрешение прерываний 
260 RET ; возврат в бейсик 


В этом эффекте Вы можете подобрать нужную громкость. Но не очень увлекайтесь: при 
значениях больших, чем 40 - 50 громкость уже не увеличивается. Необходимо заметить, что при 
изменении громкости во время воспроизведения меняется и частота. Поэтому надо предусмотреть 
её компенсацию. 

Теперь о трех байтах резерва (команды МОР). Они предназначены для изменения 
громкости (регистр В), частоты (регистр С) и длительности (регистр О). Если Вы замените эти три 
МОРа на команды DEC В (уменьшение громкости), ПМС С (компенсация частоты) и INC D 
(увеличение длительности), то у Вас получится интересный эффект с затухающей громкостью. 


4.3. Управление тембром. 


Для управления тембром ZX-Spectrum так же не приспособлен, как и для управления 
громкостью. Но, как и громкостью, им можно управлять в небольших пределах. 

Как Вы уже знаете, тембр зависит от формы звуковой волны. Так как приспособить для 
формирования тембра подпрограмму управления громкостью не так то просто, при создании 
различных форм волны придется обходиться только двумя уровнями громкости. Сделать это 
можно, например, с помощью такой подпрограммы: 


10 DI ; запрет прерываний 

20 ТООРТ LD B,8 ; В=темп 

30 ТООР2 XOR A ; А=цвет бордюра (0) 

40 RLC Е ; скроллинг тембра через флаг СУ 
50 JR NC, NOSIGN ; если флаг CY=0, то перейти Ha NOSIGN 
60 OR 16 ; установка бита D4 регистра A 
70 NOSIGN OUT (254),A ; вывод A в порт 254 

80 LD D,H ; Р=задержка 

90 PAUSE DEC D ; D=D-1 

100 JR NZ, PAUSE ; если 0<>0, то цикл 

110 DJNZ LOOP2 ; цикл темпа 

120 LD A,H ; A=H 

130 ADD A,L ; прибавить L K A 

140 LD Н, А ; НЕА 

150 DEC С ; С=С-1 

160 JR NZ, LOOP1 ; если С<>0, то цикл 

170 ЕТ ; разрешение прерываний 

180 RET ; возврат 


Перед вызовом этой подпрограммы необходимо в регистр С занести длительность ноты, в 
регистр Н - частоту, в регистр L - смещение частоты (возможны отрицательные значения и ноль), 
а в регистр Е - тембр. Учтите, что не все значения регистра Е имеют смысл. Так, при значении Е 
равном 255 или 0 Вы вообще ничего не услышите, а тембры 1 и 128 будут звучать абсолютно 
одинаково и т. д. 

По существу, имеет смысл использовать только следующие 19 тембров: 1, 3, 5, 7, 9, 11, 13, 
15, 17, 19, 21, 23, 25, 27, 37, 43, 45, 51 и 85. Все остальные значения на слух воспринимаются 
аналогично этим. 

Приведенная программа является только примером. Вы вполне можете написать свою, 
воспроизводящую звук с 16-ти битовым тембром, или с тембром, заранее записанным в память с 
магнитофонного входа (см. главу 4.6). 
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4.4. Программирование музыки. 


Программирование музыки в кодах - занятие неблагодарное. Лучше это делать с помощью 
какого-нибудь музыкального редактора. Но редактор может не удовлетворить все Ваши 
потребности, так что освоить программирование в кодах все же желательно. 

Принцип тот же - последовательно читаются данные, и вызывается процедура 
воспроизведения. При этом необходимо предусмотреть прерывание исполнения (чаще всего в 
этих целях контролируется нажатие какой-нибудь клавиши). Например: 


10 START LD HL, 60000 ; НІ=адрес данных 

20 МЕХТ iD E, (HL) ; DE= 

30 INC HL A дли- 

40 LD D, (HL) A тель 

50 INC HL ; ность 

60 LD A,D в DE 

70 CP 255 ; = 

80 JR NZ, CONT ; 65535 

90 LD A,E ; ? 

100 CP 255 ; если да, 

110 JR Z, START ; то мелодия сначала 

120 CONT LD A,D ; DE= 

130 R Е ; (ји де 

140 ЈЕ №, BEEP ; если нет, то перейти на ВЕЕР 

150 iD E, (HL) ; DE= 

160 INC НТ, ; длитель- 

170 LD D, (HL) ; НОСТБ 

180 INC HL H паузы 

190 PAUSE HALT ; ожидание прерывания 

200 DEC DE ; DE=DE-1 

210 LD A,D ; DE= 

220 OR Е, Р 0? 

230 JR NZ, PAUSE ; если нет, то цикл 

240 JR NEXT ; переход на обработку след. данных 
250 ВЕЕР р с, (HL) ; ВС= 

260 INC HL ; час- 

270 LD B, (HL) $ TO- 

280 INC HL ; Ta 

290 PUSH HL ; сохранение HL 

300 РОЗН ВС ; поместить ВС в стек 

310 РОР HL ; поместить значение из стека в HL 
320 CALL 949 ; вызов подпрограммы воспроизведения 
330 CALL 654 ; контроль клавиатуры 

340 РОР HL ; восстановление HL 

350 LD A,E ; A=E 

360 CP 255 ; если нажата клавиша, 

370 RET NZ ; то возврат в бейсик 

380 JR NEXT ; переход на обработку след. данных 


При вызове этой подпрограммы из машинных кодов обратите внимание, что прерывания 
должны быть разрешены! Иначе, если в данных первой будет стоять пауза, компьютер "зависнет". 

Перед использованием этой довольно страшненькой подпрограммы необходимо создать 
для нее массив данных (это и есть самое веселое). В данном случае он должен располагаться с 
адреса 60000 (#EA60), Ho Вы можете легко изменить его местонахождение, поменяв число в 
первой строке этой подпрограммы. 

Данные для каждой ноты должны быть следующими: сначала два байта длительности 
(первый - младший), затем два байта частоты. Если вместо длительности поместить два нуля, то 
следующая пара байт будет рассматриваться как длина паузы. Чтобы отметить конец мелодии, 
вставьте в данные вместо очередной длительности два байта 255. 

Длительность паузы измеряется в пятидесятых долях секунды, а в чем измеряется 
длительность ноты не знает, наверное, никто, хотя рассчитать необходимое значение все же 
можно (см. главу 4). 

Теперь о недостатках, которых, честно говоря, хоть отбавляй. Два из них уже были 
упомянуты выше: трудность составления мелодии и довольно странное измерение длительности 
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нот. Кроме того, длительность зависит от частоты. Например, если Вы введете такие данные: 
0,1,100,0,0,1,0,5,255,255, то не услышите две разные ноты одинаковой длины, как ожидали. 

Ещё один недостаток - возможность прервать исполнение только в промежутке между 
нотами. Впрочем, это можно легко исправить: 


10 START LD HL, 60000 
20 NEXT iD E, (HL) 
30 INC HL 

40 LD D, (HL) 
50 INC HL 

60 LD A,D 

70 CP 255 

80 JR NZ,CONT 
90 LD А,Е 

100 СР 255 

110 JR Z, START 
120 CONT LD A,D 

130 OR E 

140 JR NZ, BEEP 
150 iD E, (HL) 
160 INC HL 

170 LD D, (HL) 
180 INC HL 

190 PAUSE ХОК A 

200 IN A, (254) 
210 CPL 

220 AND 31 

230 RET NZ 

240 HALT 

250 DEC DE 

260 LD A,D 

270 OR E 

280 JR NZ, PAUSE 
290 JR NEXT 
300 BEEP AD) C, (HL) 
310 INC HL 

320 LD B, (HL) 
330 INC HL 

340 PUSH HL 

350 PUSH BC 

360 POP HL 

370 CALL PLAY 
380 POP HL 

390 RET NZ 

400 JR NEXT 
410 PLAY DI 

420 LD A, (23624) 
430 SRL A 

440 SRL A 

450 SRL A 

460 ТООРТ XOR 16 

470 OUT (254),А 
480 LD C,A 

490 PUSH HL 

500 LOOP2 XOR A 

510 IN A, (254) 
520 CPL 

530 AND 31 

540 JR Z,CONT2 
550 POP HL 

560 EL 

570 RET 

580 CONT2 DEC HL 

590 LD A,H 

600 OR L 


(2 


НТ=адрес данных 
DE= 

дли- 

тель 

ность 
DE 

65535 

2 

если да, 


то мелодия сначала 
DE= 
0 > 
если нет, TO перейти Ha BEEP 
DE= 

длитель- 

ность 

паузы 
A=0 (контроль всей клавиатуры) 
опрос клавиш 
инвертирование А 
сброс лишних битов 
если нажата клавиша, 
ожидание прерывания 
DE=DE-1 
DE= 

0 > 
если нет, TO цикл 
переход на обработку след. 
BC= 

час- 

то- 

та 
сохранение HL 
оместить ВС в стек 
оместить значение из стека в HL 
вызов подпрограммы воспроизведения 
восстановление HL 
то возврат в бейсик 
переход на обработку след. 
запрет прерываний 
А= 


то возврат 


данных 


данных 


цвет 
бор- 
дюра 
инвертирование бита D4 
вывод А в порт 254 
сохранение А 
сохранение HL 
A=0 (контроль всей клавиатуры) 
опрос клавиш 


инвертирование А 
сброс лишних битов 
если клавиша не нажата, то продолжить 
снять значение со стека 
разрешение прерываний 
возврат 
HL=HL-1 
HL= 
02 
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610 JR NZ, LOOP2 ; если нет, то цикл 

620 РОР HL ; восстановление HL 

630 DEC DE ; DE=DE-1 

640 LD A,D ; DE= 

650 OR E Н 0 ? 

660 LD A,C ; восстановление А 

670 JR NZ, LOOP1 ; если DE<>0, то цикл 
680 ЕТ ; разрешение прерываний 
690 RET ; возврат 


Обратите внимание на то, что одинаковые данные будут воспроизводиться по-разному в 
этой и предыдущей подпрограммами. 

И, наконец, самый очевидный недостаток - музыка, которая получается с помощью этих 
подпрограмм слишком примитивна. На ассемблере можно сделать что-нибудь и посерьёзнее. 

Надеюсь, что убедил Вас не пытаться программировать музыку напрямую в кодах, а вместо 
этого приобрести хороший музыкальный редактор. 

Все подпрограммы, приведенные в этой главе, можно использовать и для создания 
эффектов. Для этого достаточно вместо нот закодировать отдельные ступени эффекта. 
Желательно, чтобы каждая ступень была как можно короче, тогда эффект будет звучать плавно. 


4.5. Многоголосые мелодии. 


Хотя в предыдущей главе я старательно доказывал Вам тщетность попыток 
программирования музыки на ассемблере, Вы все-таки должны знать основные принципы этого 
занятия. 

Сейчас я опишу создание многоголосой музыки, то есть музыки, в которой может звучать 
две или больше ноты одновременно. 

Первым примером будет подпрограмма, имитирующая двухголосое звучание: 


10 DI ; запрет прерываний 

20 LD D, 200 ; D=uactota 1 

30 iD E,50 ; Е=частота 2 

40 LD Н, 150 ; Н=длительность 

50 XOR A ; А=бордюр для голоса 1 (0) 

60 EX AF,AF' ; смена регистров А и Е на альтернативные 
70 XOR A ; А=бордюр для голоса 2 (0) 

80 LD C,E ; С=счетчик 1 

90 LD B,D ; В=счетчик 2 

100 ВЕЕР ЕХ АЕ, АЕ! ; смена регистров А и Е (смена голоса) 
110 DEC С ; C=C-1 

120 JR NZ, CONT ; если С<>0, топерейти Ha CONT 

130 LD C,E ; восстановить счетчик 1 

140 XOR 16 ; инвертировать бит D4 голоса 1 

150 CONT OUT (254),A ; вывести А в порт 254 

160 EX AF,AF' ; смена регистров А и Е (смена голоса) 
170 DEC B ; B=B-1 

180 JR NZ, CONT2 ; если В<>0, то перейти Ha CONT2 

190 LD B,D ; восстановить счетчик 2 

200 XOR 16 ; инвертировать бит D4 голоса 2 

210 CONT2 OUT (254),A ; вывести А в порт 254 

220 INC L ; L=Lt+1 

230 JR NZ, BEEP ; если [<>0, то перейти на ВЕЕР 

240 МОР ; резерв 

250 МОР ; резерв 

260 DEC Н ; H=H-1 

270 JR NZ, BEEP ; если Н<>0, то перейти на BEEP 

280 ЕТ ; разрешение прерываний 

290 RET ; возврат 


Теперь поясню некоторые детали. 

Два альтернативных регистра А используются первым и вторым голосами для хранения 
цвета бордюра и состояния динамика. 

Странная операция с регистром Г перед завершением цикла предназначена для 
"растягивания" длительности. Если её убрать, то звучание этой подпрограммы станет настолько 
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кратковременным, что Вы можете его даже не услышать. 

Два байта резерва (операции МОР) Вы можете использовать для изменения частоты обоих 
голосов во время воспроизведения. Для этого вместо "МОР" нужно вставить INC О или DEC D для 
первого голоса, и ПМС Е или DEC Е для второго. 

Эту подпрограмму можно использовать на ассемблере (см. предыдущую главу) или на 
бейсике (в данном случае параметры следует заносить оператором РОКЕ в следующие ячейки: 
ADDR+2 - частота 1, ADDR+4 - частота 2, ADDR+6 - длительность, где ADDR - адрес 
расположения подпрограммы в памяти). 

Следующие две многоголосые подпрограммы очень похожи друг на друга, но первая 


звучит значительно тише и несколько чище второй. 
Вот они: 
10 DI ; запрет прерываний 
20 LD HL, 2000 ; НІ=длительность 
30 ГООР1 LD ІХ, FRQS ; ТХ=адрес таблицы частот 
40 LD Ву Э ; В=число голосов 
50 LOOP2 РЕС (ТХ+0) ; байт по адресу 1Х+0 уменьшить на 1 
60 JR NZ,NOSIGN ; если не 0, то перейти Ha NOSIGN 
70 LD A,24 ; A=uBeT бордюра + 24 
80 OUT (254),A ; вывод A в порт 254 
90 LD A, (1Х+5) ; обновление счетчика 
100 LD (IX+0),A Н текущего канала 
110 XOR A ; А=цвет бордюра (0) 
120 OUT (254),A ; вывод A в порт 254 
130 NOSIGN INC IX ; ТХ=ТХ+1 
140 РОМА LOOP2 ; цикл 
150 DEC HL ; HL=HL-1 
160 LD A,H ; НІ= 
170 OR L ; 0? 
180 JR NZ, LOOP1 ; если нет, то цикл 
190 ЕТ ; разрешение прерываний 
200 КЕТ ; возврат 
210 ЕКО РЕЕВ 1,1,1,1,1 ; счетчики для 5 каналов 
220 DEFB 10,20, 30 ; частоты для 
230 DEFB 40,50 A 5 каналов 
10 DI ; запрет прерываний 
20 LD HL, 2000 ; НІ=длительность 
30 LOOP1 LD ІХ, FRQS ; ТХ=адрес таблицы частот 
40 LD B,95 ; В=число голосов 
50 LOOP2 РЕС (ТХ+0) ; байт по адресу ТХ+0 уменьшить на 1 
60 JR NZ,NOSIGN ; если не 0, то перейти Ha NOSIGN 
70 LD A, (1Х+5) ; А=содержимое ТХ+5 
80 XOR 1 ; инвертирование бита DO 
90 LD (IX+5),A ; содержимое ТХ+5=А 
100 LD A,0 ; A=uBeT бордюра 
110 JR Z,NOSIGN ; если DO содер. 1Х+5=0, то перейти на NOSIGN 
120 OR 24 ; установить в 1 биты D3 и D4 регистра A 
130 OUT (254) ; вывод A в порт 254 
140 LD Т ; обновление счетчика 
150 LD (IX+0),A 2 текущего канала 
160 NOSIGN INC IX ; ТХ=ТХ+1 
170 РОМА LOOP2 ; цикл 
180 DEC HL ; HL=HL-1 
190 LD A,H ; НІ= 
200 OR L ; 0? 
210 JR NZ, LOOP1 ; если нет, то цикл 
220 ЕТ ; разрешение прерываний 
230 RET ; возврат 
240 ЕКО DEFB. 1, 1,1, 1,1 ; счетчики для 5 каналов 
250 РЕРВ 0,0,0,0,0 ; буферы для 5 каналов 
260 DEFB 10,20, 30 ; частоты для 
270 РЕЕВ 40,50 A 5 каналов 
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Эти подпрограммы заводят счетчики для каждого из каналов и последовательно их 
уменьшают. Если какой-либо из счетчиков становится равным 0, на динамик выводится сигнал, а 
в данный счетчик заносится частота из таблицы. 

В данных примерах подпрограммы воспроизводят по пять голосов, но Вы можете легко 
изменить их число, модифицировав значения в строках 40 и 90 для первой подпрограммы или 40, 
70, 90 и 140 (в строку 140 надо вставить число голосов, умноженное на 2) - для второй. При этом 
надо также скорректировать таблицы частот. 

Хотя голосов может быть довольно много (до 85), увлекаться их количеством не стоит, так 
как чем их больше, тем хуже качество. Впрочем, вряд ли найдется гений, способный написать 
мелодию на 85 голосов. 

Если Вы хотите использовать многоголосие, но в конкретный момент времени Вам надо 
воспроизвести меньшее число голосов, чем задано, то неиспользуемым голосам надо присвоить 
частоты, совпадающие с частотами используемых голосов. 


4.6. Обработка внешних сигналов. 


ZX-Spectrum предоставляет программистам довольно интересную возможность - считывать 
и сохранять в памяти звуковые сигналы, подаваемые на его магнитофонный вход. Эти фрагменты 
можно воспроизводить с различной скоростью, что, несомненно, очень интересно. Правда, 
качество полученного таким образом звука оставляет желать лучшего, а его максимальная 
длительность ограничивается несколькими десятками секунд (просто-напросто кончаются 48К 
ОЗУ!). 


Но перейдем от слов к делу. Вот подпрограмма, записывающая звук в память: 


10 DI ; запрет прерываний 
20 LD HL, 25000 ; НІ=адрес сохранения звука 
30 LD DE, 35000 ; РОЕ=длительность звука 
40 ТООР1 LD B,8 ; В=счетчик битов 
50 LOOP2 SLA (HL) ; скроллинг значения в памяти 
60 ТМ А, (254) ; ввести значение из порта 254 
70 BIT 6,A ; проверить бит магнитофона 
80 JR Z,NOSIGN ; если 0, то перейти Ha NOSIGN 
90 SET 0, (HL) ; установить бит DO в памяти 
100 NOSIGN LD СЭ ; С=задержка 
110 PAUSE DEC С р ВЕС 
120 JR NZ, PAUSE ; если С<>0, то цикл 
130 DJNZ LOOP2 ; продолжить цикл обработки байта 
140 INC HL ; HL=HL+1 
150 DEC DE ; DE=DE-1 
160 LD A,D ; DE= 
170 OR E ; 0? 
180 JR NZ, LOOP1 ; если нет, то цикл 
190 ЕТ ; разрешение прерываний 
200 RET ; возврат 
А это подпрограмма воспроизведения: 
10 DI ; запрет прерываний 
20 LD HL, 25000 ; НІ=адрес сохраненного звука 
30 LD DE, 35000 ; ОЕ=длительность звука 
40 МОР ; резерв 
50 XOR А ; А=цвет бордюра (0) 
60 LOOP3 LD B,8 ; В=счетчик битов 
70 LOOP4 AND 239 ; сброс бита D4 регистра A 
80 RLC (HL) ; скроллинг данных через флаг CY 
90 JR NC,NOSGN ; если флаг CY=0, то перейти Ha NOSGN 
100 OR 16 ; установка бита D4 регистра A 
110 NOSGN OUT (254),A ; вывод A в порт 254 
120 LD C73 ; С=задержка 
130 PAUS2 DEC С ; C=C-1 
140 JR NZ, PAUS2 ; если С<>0, то цикл 
150 DJNZ LOOP4 ; продолжить цикл обработки байта 
160 INC HL ; HL=HL+1 
170 LD C,A ; сохранение А 


26 


ПРОГРАММИРОВАНИЕ ЗВУКА В КОДАХ 


180 DEC DE ; DE=DE-1 

190 LD A,D ; DE= 

200 OR E В 0? 

210 LD Age ; восстановление A 

220 JR NZ, LOOP3 ; если DE<>0, то цикл 
230 ЕТ ; разрешение прерываний 
240 КЕТ ; возврат 


Адреса данных и их длина должны совпадать в этих двух подпрограммах. Обратите также 
внимание на то, что они используют 35Кб памяти с адреса 25000. Поэтому в этой области ОЗУ не 
должно быть никаких данных. Сами подпрограммы тоже должны располагаться где-нибудь в 
другом месте. Оптимальным вариантом будет такой: перенумеруйте строки второй 
подпрограммы, начиная с 210 и с шагом 10 (если Вы работаете в СЕМ$4 -введите для этих целей 
команду №210,10); соедините то, что получилось с первой подпрограммой и введите следующие 


строки: 
7 ORG 24900 

20 LD HL, BUFFER 

30 LD DE, LENGTH 

220 LD HL, BUFFER 

230 LD DE, LENGTH 

450 LENGTH EQU 35000 ; LENGTH=35000 

460 BUFFER NOP ; здесь располагается буфер 


Проследите также, чтобы ассемблер располагался приблизительно с адреса 40000. В любом 
случае, он будет стёрт из памяти при вызове подпрограммы ввода звука. Поэтому, не стоит 
вызывать её из обреченного ассемблера. 

Ещё одно важное замечание: при использовании этих подпрограмм следите, чтобы 
выражение BUFFER+LENGTH не было больше 65535, иначе часть звуковых данных просто не 
запишется, а вместо них Вы услышите шум. 

В строке 100 первой подпрограммы и в строке 120 второй, в регистр С заносится задержка 
между выборками данных. Если эти два значения равны, то звук будет воспроизводиться с 
реальной скоростью. Если второе число меньше первого, то звук будет ускорен, а если больше - 
замедлён. Причем, чем меньше задержка в подпрограмме ввода, тем выше качество вводимого 
сигнала, но меньше его длительность. 

Байт резерва в подпрограмме воспроизведения предназначен для переворачивания звука, то 
есть проигрывания его с конца на начало. Для включения этого эффекта надо заменить операцию 
МОР в этом байте Ha ADD HL,DE, а INC HL в строке 160 Ha DEC HL. 

Существует и другой способ записи звука. Он основан на подсчете звуковых импульсов. 
Перед первым способом он не имеет никаких особых преимуществ, за исключением возможности 
незначительного понижения уровня шума. Вот подпрограмма, записывающая звук вторым 
способом: 


10 DI ; запрет прерываний 

20 LD HL, 25000 ; НІ=адрес сохранения звука 

30 LD DE, 35000 ; РОЕ=длительность звука 

40 LD BC, 511 ANC буфер, B счетчик 

50 LOOP1 ТМ А, (254) ; ввод значения из порта 254 

60 ЕХХ ; смена набора регистров 

70 LD В,1 ; В=задержка 

80 PAUSE DJNZ PAUSE ; задержка 

90 EXX ; смена набора регистров 

100 BIT 6,A ; проверить бит магнитофона 

110 LD A,0 ; A=0 

120 JR NZ, SIGN ; если бит рб=1, то перейти на SIGN 
130 DEC A ; A=255 

140 SIGN CP С ; А=С (предыдущему значению)? 
150 JR NZ,WRITE ; если нет, то перейти Ha WRITE 
160 INC B ; В=В+1 (счетчик импульсов) 

170 JR NZ, LOOP1 ; если В<>0, то цикл 

180 WRITE DEC B ; В=В-1 

190 JR NZ, POKE ; если В<>0, то перейти Ha POKE 
200 LD B,2 ; В=2 

210 CPL ; инвертирование А 
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220 LD GIA 7 CER 

230 JR LOOP1 ; перейти на LOOP1 

240 POKE INC B ; В=В+1 

250 LD (HL) ,B ; запись значения в память 
260 LD В,1 ; Bel 

270 LD C,A ; С=А 

280 INC HL ; HL=HL+1 

290 DEC DE ; DE=DE-1 

300 LD A,D ; DE= 

310 OR Е F 0? 

320 JR Ми, LOOP1 ; если нет, то цикл 

330 ЕТ ; разрешение прерываний 
340 RET ; возврат 


В строке 20 задается адрес сохранения звука, в строке 30 - длительность вводимого звука, в 
строке 70 - задержка между выборками сигнала. 

Строки 180 - 240 обеспечивают шумопонижение. 

В регистре С сохраняется значение предыдущей выборки, а регистр В служит счетчиком 
одинаковых выборок. 

А вот подпрограмма воспроизведения: 


10 DI ; запрет прерываний 

20 LD HL, 25000 ; НІ=адрес сохраненного звука 
30 LD DE, 35000 ; РЕ=длителђностђ звука 

40 МОР ; резерв 

50 XOR A ; А=цвет бордюра (0) 

60 LOOP2 iD B, (HL) ; В=очередная длительность 
70 LOOP3 OUT (254),A ; вывод A в порт 254 

80 ЕХХ ; смена набора регистров 
90 LD В,1 ; В=задержка 

100 PAUS2 DJNZ PAUS2 ; задержка 

110 ЕХХ ; смена набора регистров 
120 CALL 124 ; компенсационная 

130 BIT 0, (HL) Я задержка 

140 РОМА LOOP3 ; цикл 

150 LD B, (HL) ; В=текущая длительность 
160 РЕС В ; B= 

170 INC B ; 0? 

180 JR 2, СОМТ ; если да, то перейти на СОМТ 
190 XOR 16 ; инвертирование бита D4 
200 CONT INC HL ; HL=HL+1 

210 DEC DE ; DE=DE-1 

220 LD B,A ; сохранение А 

230 LD A,D ; DE= 

240 OR E А 0? 

250 LD A,B ; восстановление A 

260 JR NZ, LOOP2 ; если DE<>0, то цикл 

270 ЕТ ; разрешение прерываний 
280 КЕТ ; возврат 


В строке 20 задается адрес сохраненного звука, в строке 30 - его длительность, а в строке 90 
- задержка между выборками (она же - скорость воспроизведения). 

Байт резерва, как и раньше, предназначен для обратного воспроизведения. Для включения 
этого эффекта надо заменить операцию МОР в этом байте Ha ADD HL,DE, а INC НГ в строке 200 
на РЕС НГ. 

Строки 120 и 130 нужны только для временной синхронизации с подпрограммой записи 
звука (по адресу 124 находится команда КЕТ). 

Всё сказанное относительно задержки между выборками и распределения памяти для 
подпрограмм, использующих первый способ записи, справедливо и для подпрограмм, 
использующих второй способ. 

Особенностью подпрограмм второго типа является то, что длительность записываемого 
звука зависит не только от объёма выделенной памяти, но и от самого звука. Чем меньше 
перепадов уровней в записываемом звуке (иными словами - чем меньше его средняя частота), тем 
более продолжительный звук можно записать. Например, если записывать одну "тишину", то 
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памяти хватит на несколько минут! 

Вы можете произвольно менять адрес и длину запоминаемого звука, но при этом 
необходимо быть предельно осторожным и не испортить жизненно важные области ОЗУ. Такие, 
как стек или системные переменные бейсика. 

Звук, записанный этими подпрограммами можно сохранить на ленте или диске с помощью 
обычных команд записи, а затем загружать по мере надобности. 

Так как даже не очень длинный звуковой фрагмент занимает в памяти много места, 
возникает естественное желание как-нибудь его сократить. Спешу Вас обрадовать - это возможно! 
Звуковые данные очень хорошо компрессируются по любому алгоритму. Для этого можно 
использовать даже экранные компрессоры. Неплохо было бы их немного модифицировать для 
такого использования, но, если Вы не сможете это сделать, дам несколько советов. Во-первых, без 
изменения компрессора можно сжимать только те файлы, размер которых меньше или равен 6912 
байтам (если какой-либо компрессор отказывается принимать файлы с длиной отличной от 6912 


байт, то дополните их до данного размера нулями). Во-вторых, обычно компрессоры при 
распаковке картинки помещают её прямо в область экрана. Поэтому, придется данные перемещать 
оттуда в их "родной" адрес. Это можно сделать с помощью следующей подпрограммы: 

10 LD HL, 16384 Б 

20 LD DE, 16385 ; очистка 

30 LD BC, 6911 ; 

40 LD (HL),L ; экрана 

50 LDIR ; 

60 CALL DECOMP ; вызов декомпрессора 

70 LD HL, 16384 ; НІ=откуда перемещать 

80 LD DE, ADDR ; ПЕ=куда перемещать 

90 LD BC, LENGTH ; ВС=сколько перемещать 

100 LDIR ; перемещение данных 

110 CALL 3435 ; вызов подпрограммы CLS 

120 КЕТ ; возврат 


Данные будут на экране такое короткое время, что Вы, скорее всего, этого и не заметите 
(при достаточно быстрой процедуре декомпрессии). 
И в заключение приведу текст программы на бейсике, загружающей и воспроизводящей 


звук с оптимальными параметрами: 

10 CLEAR VAL "24899": PRINT "Wait please..." 

20 FOR A=VAL "24900" TO VAL "24972": READ р: POKE A,D: NEXT А 

30 CLS: PRINT "Press any key, then speak..": PAUSE NOT РТ 

40 CLS: RANDOMIZE USR VAL "24900" 

50 CLS: PRINT "Press any key to replay..": PAUSE NOT PI 

60 CLS: RANDOMIZE USR VAL "24934": GOTO VAL "30" 

70 DATA 243, 33, 141, 97, 17, 114, 158, 6, 8, 203, 38, 219, 254, 203, 119, 40, 2, 
203, 198, 14, 1, 13, 32, 253, 16, 239, 35, 27, 122, 179, 32, 231, 251, 201 

80 DATA 243, 33, 141, 97, 17, 114, 158, 0, 62, 7, 6, 8, 230, 239, 203, 6, 48, 2, 
246, 16, 211, 254, 14, 1, 13, 32, 253, 16, 239, 35, 27, 79, 122, 179, 121, 

32, 229, 251, 201 

Если Вы захотите включить воспроизведение "наоборот", вставьте в эту программу, 


следующую строку: 
45 POKE VAL "24941",VAL "25": POKE VAL "24963", УАЬ "43" 


Для отключения этого эффекта удалите данную строку и перезапустите программу. 
Непривычная запись чисел в этой программе приводит к экономии памяти. Так, выражение 
"24900" занимает 11 байт, а "VAL "24900"" - только 8 ("МОТ РІ" равняется нулю). 


4.7. Реверберация. 


Говоря человеческим языком, реверберация - это эхо. 

Программа, реализующая этот интересный эффект по существу является воссоединением 
обоих фрагментов первого типа из предыдущей главы. То есть, эта программа одновременно 
воспроизводит звук и записывает на его место новый. 


Вот она: 
10 DI ; запрет прерываний 
20 LOOP1 LD HL, 25000 ; НІ=адрес буфера 
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30 LD DE, 2560 ; РЕ=задержка эха 

40 LOOP2 nD) B,8 ; В=счетчик битов 

50 ТООРЗ XOR A ; A=uBeT бордюра (0) 

60 RRC (HL) ; скроллинг данных через флаг CY 
70 JR NC,NOOUT ; если CY=0, то перейти Ha NOOUT 
80 OR 16 ; установка бита D4 регистра A 
90 NOOUT OUT (254),A ; вывод A в порт 254 

100 RES 7, (HL) ; сброс бита D7 в памяти 

110 XOR A ; А=О (опрос всей клавиатуры) 
120 ТМ А, (254) ; ввод значения из порта 254 

130 BIT 6,A ; проверить бит магнитофона 

140 JR Z,NOINP ; если 0, то перейти Ha NOINP 
150 SET 7, (HL) ; установить бит D7 в памяти 

160 МОТМР СРЕ ; клавиша 

170 AND 31 Н нажата? 

180 JR NZ, EXIT ; если да, то перейти на EXIT 
190 LD C2 ; С=задержка 

200 PAUSE DEC С ; С=С-1 

210 JR NZ, PAUSE ; если С<>0, TO цикл 

220 РОМА LOOP3 ; продолжить цикл обработки байта 
230 INC НІ, ; HL=HL+1 

240 DEC DE ‚ DE=DE-1 

250 LD A,D ; DE= 

260 OR Е Я 0? 

270 JR NZ, LOOP2 ; если нет, то перейти Ha LOOP2 
280 JR LOOP1 ; перейти на LOOP1 

290 EXIT ЕТ ; разрешение прерываний 

300 RET ; возврат 


Эта подпрограмма будет работать до тех пор, пока Вы не нажмете какую-либо клавишу. А 
так как она очень чувствительна к подобного рода действиям, вызывать её лучше с помощью 


маленькой программки на бейсике: 
10 FOR I=1 TO 10: NEXT I 
20 RANDOMIZE USR A 


- где A - адрес подпрограммы ревербератора. 
Если Вы хотите, чтобы независимо от местоположения подпрограммы буфер находился 


сразу за ней, то введите следующие строки: 
20 LD HL, BUFFER 
310 BUFFER NOP ; здесь располагается буфер 


В строке 190 содержится значение задержки между выборками сигнала. Меняя, ero Вы 
можете настраивать соотношение "качество звука - объём памяти". 

Изменяя значение в строке 30 можно менять задержку эха. 

И последнее: если Вы будете вводить звук с выхода какого-либо устройства, то эхо будет 
звучать один раз. Если же - с помощью микрофона, то Вы можете установить количество 
повторений, регулируя громкость воспроизводимого звука и уровень записи магнитофона. Если 
хотя бы один из этих параметров будет ниже необходимого уровня, то эхо прозвучит один раз. 
Чем выше эти параметры, тем большее число повторений Вы услышите (их громкость будет, как в 
жизни от раза к разу уменьшаться). Однако не следует увлекаться. Если Вы переусердствуете, то 
программа самовозбудится и все что она будет воспроизводить, впоследствии будет звучать на 
фоне ужасно противного шума. Если это произошло, выключите громкость или микрофон на 
несколько секунд, и все вернется на свои места. 


4.8. Синтезирование речи. 


Синтезировать речь можно просто записывая и воспроизводя её как любой другой звук с 
помощью подпрограмм из главы 4.6, но обычно действуют иначе. Сначала в компьютер вводятся 
все фонемы определенного языка, затем у пользователя запрашивается фраза, и, наконец, 
компьютер последовательно воспроизводит входящие в нее фонемы. Этот способ позволяет 
значительно экономить память и воспроизводить абсолютно любые фразы. Вот программа, 


позволяющая спектруму разговаривать: 
10 CLEAR 25343: LET L=3 
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20 PRINT "Wait please..." 

30 FOR A=25344 TO 25433: READ D: POKE A,D: NEXT A 

40 FOR A=0 TO 25: POKE 25437,A*L+100 

50 CLS: PRINT "Press any key, then say '";СНВ$ (A+65);"'": PAUSE 0 

60 RANDOMIZE USR 25344: NEXT A 

70 CLS: INPUT "Enter phrase:"; LINE A$: PRINT A$ 

80 FOR A=1 TO LEN A$ 

90 IF А$(А)=" " THEN POKE 25433+A,32:NEXT A 

100 IF А$ (А) >="а" THEN LET AS (А) =СНВ$ (CODE AS (А) -32) 

110 POKE 25433+A, (CODE А$ (А) -65) *1+100: NEXT А: POKE 25433+А, 0 

120 RANDOMIZE USR 25406: GOTO 70 

130 DATA 243, 33, 0, 0, 17, 0, 1, 6, 8, 203, 38, 219, 254, 203, 119, 40, 2, 203, 
198, 16, 244, 35, 27, 122, 179, 32, 236, 251, 201 

140 DATA 243, 33, 0, 0, 17, 0, L, 62, 7, 6, 8, 230, 239, 203, 6, 48, 2, 246, 16, 
211, 254, 16, 244, 35, 27, 79, 122, 179, 121, 32, 234, 251, 201 

150 DATA 33, 90, 99, 126, 183, 200, 254, 32, 32, 7, 6, 5, 118, 16, 253, 24, 8, 50, 
32, 99, 229, 205, 29, 99, 225, 35, 24, 231 

Поясню некоторые строки: 


30 - считываются в память программы в кодах 
40...60 -записываются фонемы с микрофона 

70 - ввод фразы 

80...110 - фраза заносится в память в специальном формате 
120 - вызывается подпрограмма воспроизведения 


130...150 - подпрограммы в кодах 

После запуска программа попросит немного подождать, считывая кодовую часть, затем Вы 
должны будете последовательно произнести в микрофон 26 фонем. После этого Вы можете 
вводить любые фразы и наслаждаться их звучанием. При вводе этих фраз допустимы прописные и 
строчные латинские буквы и пробелы. Как будут звучать все остальные символы никому 

неизвестно. Ни в коем случае не стоит вводить знак "@", иначе программа просто 
"зависнет". 

Эта программа написана как пример, поэтому не содержит дополнительных сер- висных 
возможностей (например, изменение отдельной фонемы), но Вы свободно можете их добавить. 

Для изменения длительности отдельной фонемы смените в десятой строке значение 
переменной L (в данном случае оно может быть OT | до 6). 

Если Вам не удалось с первого раза произнести все фонемы с удовлетворительным 
качеством, то можете попытаться еще раз, остановив программу с помощью клавиши ВКЕАК и 
выполнив команду СО ТО 40. Когда фонемы будут записаны, Вы можете сохранить их на ленте, 
набрав команду SAVE "name" CODE 25600,6656*L (число 6656 получилось путём умножения 
количества фонем (26) на 256). Лучше всего, если перед этим блоком будет записана 


вышеприведенная программа со следующей строкой: 
35 LOAD "name" CODE 25600: GOTO 70 


Записать эту программу можно с помощью команды SAVE "SPEAKER" LINE 10. 

К сожалению, 26 фонем - это маловато даже для английского языка, не говоря уже про 
русский. Их количество можно конечно увеличить, но при этом увеличится и объём занимаемой 
ими памяти. Тут уж ничего не сделаешь. 

Если Вы хотите чтобы Ваш ZX-Spectrum говорил по-русски, то Вы должны подключить 
русский шрифт (подробнее см. в [1]) и увеличить число фонем. А также сменить все сообщения, 
выводимые на экран. 

Количество русских фонем можно значительно сократить, если не использовать мягкие 
согласные (в компьютерном исполнении их мягкость практически не слышна) и гласные "Е", "Ё", 
"Ю" и "Я" (вместо них вводите "И" и, соответственно, "3", "О", "У" и "А"). Твердый знак также 
заменяйте буквой "И". 

И в заключение один совет. Гораздо приятнее слышать нормальную человеческую речь, 
чем слова, выговариваемые в соответствии с правилами грамматики. Поэтому вводите слова как 
слышите: Sinclair - sinkler, компьютер - кампйутер. 
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4.9. Звук на прерываниях. 


У всех подпрограмм, приведенных в предыдущих главах, есть один общий недостаток: на 
время их звучания выполнение основной программы приостанавливается. Это можно исправить, 
хотя и с трудом, используя второй режим прерываний. Те, кто знает, что это такое, могут, смело 
пропустить следующие несколько абзацев. 

Как уже говорилось раньше, пятьдесят раз в секунду процессор получает сигнал о 
необходимости вызова прерывания. При этом он вызывает некоторую подпрограмму, после чего 
продолжает обрабатывать основную программу. 

Существует три различных режима прерываний 0, 1 и 2, которые выбираются командами 
IM 0, IM 1 и М 2. Стандартный режим имеет номер 1. О нём уже было рассказано в главе 3, но на 
всякий случай напомню, что в этом режиме в качестве обработчика прерываний используется 
подпрограмма ПЗУ по адресу 56 (#38), которая следит за клавиатурой и счётчиком времени. 
Режим 0 нам не интересен, так как в ZX-Spectrum он аналогичен режиму 1. A вот режим 2 и есть 
самое интересное! 

Во втором режиме прерываний пятьдесят раз в секунду происходит следующее: 
Микропроцессор считывает с шины данных байт, называемый вектором прерывания. Он 
передается в младший байт шины адреса, а в старший байт записывается содержимое регистра 1. 
По полученному таким образом адресу процессор считывает из памяти два байта, которые 
интерпретируются как адрес подпрограммы обработки прерывания. 

ZX-Spectrum устроен Tak, что вектор прерывания обычно равен 255 (#FF), но некоторые 
внешние устройства, например, AMX-mouse, могут генерировать другие вектора. Кроме того, в 
некоторых некачественных спектрумах вектор прерывания может изменяться абсолютно 
случайным образом. 

Исходя из всего вышесказанного, можно предложить следующую последовательность 
действий для установки собственной подпрограммы обработки прерываний: 

1. запретить прерывания 

2. записать в память адрес обработчика прерываний 

3. задать в регистре [ старший байт адреса указателя на обработчик 

4. установить второй режим прерываний 

5. разрешить прерывания 

А для возврата к стандартному режиму обработки прерываний нужно выполнить такие 
действия: 

1. запретить прерывания 

2. записать в регистр І число 63 

3. установить первый режим прерываний 

4. разрешить прерывания 

Так как вектор прерывания может изменяться, вместо записи двух байтов по 
определенному адресу выстраивается целая таблица размером 257 байт с таким расчётом, чтобы 
при любом значении вектора считывался один и тот же адрес. Понятно, что для этого все байты 
таблицы должны быть одинаковыми. 

При составлении процедур обработки прерываний следует придерживаться некоторых 
правил. Во-первых, обработчик прерывания должен выполняться за достаточно короткий 
промежуток времени. Во-вторых, все регистры, используемые в обработчике перед возвратом 
должны принять значения, находившиеся в них до вызова прерывания. В связи с этим не 
рекомендуется обращаться к подпрограммам ПЗУ, по крайней мере, до тех пор, пока Вы не знаете 
совершенно точно, какие в них используются регистры, и какие системные переменные при этом 
могут быть изменены. Вызов подпрограмм ПЗУ не желателен ещё и потому, что некоторые из них 
разрешают прерывания, что совершенно не допустимо во избежание вызова обработчика из 
самого себя. Любой обработчик должен работать при запрещенных прерываниях. Однако, 
использовать команду DI в самом начале процедуры не обязательно, так как это делается 
автоматически и Вам надо позаботиться только о разрешении прерываний перед выходом. 

Если Вы не хотите лишаться возможностей, предоставляемых стандартным обработчиком 
прерываний, можете использовать в своей подпрограмме команду RST 56. А при использовании 
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прерываний в бейсик-программах это просто необходимо, иначе будет заблокирована клавиатура. 

Теперь разберемся, чем нам могут быть полезны прерывания. 

Если задать некоторую последовательность звуков и в каждом прерывании воспроизводить 
короткую её часть, то получится довольно хороший эффект параллельного с программой звука 
Причем каждая часть должна быть, действительно, очень короткой, иначе толку от прерываний не 
будет. 

Условимся, что последовательность звуков будем задавать блоком данных в следующем 
формате: для каждой ноты в блоке данных должно быть по два байта. Первый байт - частота 
(1...253), а второй байт - длительность (0...255). Кроме того, могут встречаться такие контрольные 
коды: 

0 - переключение тон/шум 
254 - начало цикла 
255 - конец блока 

Изначально программа настроена на вывод чистого тона, но, если Вам необходимо 
получить шум, Вы можете переключить её на воспроизведение шума, вставив в данные байт, 
равный 0. Для повторного переключения на тон байт 0 должен встретиться еще раз. 

Когда программа встретит байт 255, вывод звука либо прекратится, либо вся 
последовательность повторится снова - в зависимости от заданного числа повторений. 

Если в блоке данных встретится код 254, то при очередном повторении эффект начнется не 
с начала, а с места, где этот код встретился. 


Теперь сама программа. Она является законченным комплексом и может быть 
оттранслирована ассемблером без малейших изменений: 
10 ORG 60000 
20 JP SINIT ; подключение прерываний 
30 JP SSTOP ; отключение прерываний 
40 JP NEWFX ; инициализация эффекта 
50 МОТЕ iD (COUNT) ,A ; "заглушка" 
60 КЕТ 
70 SINIT XOR A 
80 LD (COUNT),A 
90 LD A,24 ; код команды JR 
100 LD (65535),A 
110 LD А, 195 ; код команды JP 
120 LD (65524),A 
130 LD HL, INTR ; НІ=адрес обработчика 
140 LD (65525) , HL 
150 LD HL, 65024 
160 LD DE, 65025 
170 LD BC, 256 
180 LD (HL) ,255 ; адрес прерывания - 65535 
190 LD A,H 
200 LDIR ; заполнение таблицы 
210 ОТ 
220 LD I,A 
230 IM 2 
240 EI 
250 RET 
260 SSTOP DI ; отключение прерываний 
270 LD А, 63 
280 LD I,A 
290 IM 1 
300 EI 
310 RET 
320 МЕМЕХ DI ; инициализация эффекта 
330 LD (COUNT) ,A 
340 XOR A 
350 LD (FLAG) ,A 
360 LD (ADDR) , HL 
370 LD (CURADD) , HL 
380 EI 
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1040 ВЕТ ; возврат 

Порядок использования этого пакета должен быть следующим. В начале работы нужно 
вызвать подпрограмму SINIT, которая включит 2-ой режим прерываний. В тот момент, когда Вам 
нужно получить звук надо занести в регистр HL адрес блока данных, в регистр А - число 
повторений и вызвать подпрограмму МЕМЕХ. Затем, если Вам по какой-либо причине надо 
выключить звук или продлить его звучание, занесите в регистр А новое число повторений и 
вызовите подпрограмму МОТЕ. Кроме того, эту подпрограмму 

можно использовать для включения последнего звучавшего эффекта. По окончании работы 
(или если в программе предусмотрены обращения к дисководу) следует вызвать подпрограмму 
35 ТОР, которая восстановит стандартный режим прерываний. 

Серия команд JP в начале пакета сделана для удобства. Благодаря ей все подпрограммы 
этого пакета могут вызываться по соседним адресам: 

SINIT - 60000 (#EA60) 

SSTOP - 60003 (#EA63) 

NEWFX - 60006 (#EA66) 

MUTE - 60009 (#EA69) 

К сожалению, с помощью прерываний невозможно получить достаточно чистый тон. 
Поэтому, а также из-за совсем не музыкального формата данных, эта программа вряд-ли может 
использоваться для создания музыки. Но для звуковых эффектов она в самый раз. 

Вот пример использования приведенной программы: 


10 ORG 50000 

20 CALL 60000 

30 LD HL, SNDFX 

40 LD A,3 

50 CALL 60006 

60 RET 

70 SNDFX DEFB 200,5,250,4,200,5,100,10,75,13,50,20,255 
Строку 70 можно заменить Ha следующую: 

70 SNDFX РЕЕВ 50,20,75,13,100,10,200,5,250,4,50,20,255 


И последнее. Если в Вашей программе не очень много движущихся объектов на экране и 
длительность звукового эффекта достаточно мала (около полсекунды или меньше), то его можно 
использовать без всяких прерываний - задержка заметна не будет. 
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5. Оператор PLAY. 


С этой главы начинается часть книги, посвященная музыкальному сопроцессору AY-3-8910 
(или АУ-3-8912), встроенному в ZX-Spectrum 128, а также во все его модификации. 

При включении ZX-Spectram 128 на экране появляется меню, предлагающее на выбор 
несколько пунктов. Все они неплохо описаны в [2], в нашем же случае выберите пункт 128 BASIC. 
В этом режиме Вам становится доступен оператор PLAY, обслуживающий музыкальный 


сопроцессор. В общем виде формат оператора PLAY выглядит так: 
PLAY AS$[,B$,C$,D$,E$,F$,G$,H$] 


- где А$...Н$ - символьные строки, задающие музыкальную программу. Сам сопроцессор 
использует для управления своими тремя каналами (А, В и С) только A$, В$ и C$. Если для Вас 
три канала много, то Вы можете использовать только два, или даже один, задав соответствующее 
количество стрингов (пустой стринг также указывает на то, что канал не используется). 

Остальные строки (0$...Н$) предназначены для управления музыкальными 
инструментами, которые можно подключить к ZX-Spectram 128 через МП-интерфеис. 

Все заданные стринги исполняются одновременно, что позволяет создавать сложные и 
красивые мелодии. 

В стрингах используются специальные команды. Остановимся на них подробнее. 

Ноты ДО, РЕ, МИ, ФА, СОЛЬ, ЛЯ и СИ текущей октавы обозначаются строчными 
латинскими буквами, соответственно, с, d, е, f, g, аи b (по международному стандарту). Ноты 
следующей октавы обозначаются прописными латинскими буквами С, р, Е, Е, G, А и В. 


Например, оператор 
PLAY "cdefgabC" 


проиграет гамму ДО-мажор. 
Полутона задаются знаками # (диез) и $ (бемоль), стоящими перед нотой. Например, ДО- 


диез запишется как #c, a СИ-бемоль - $b. Чтобы проиграть гамму ДО-минор, введите 
PLAY "cdSefg$a$bC". 


Допустимо использование нескольких диезов или бемолей подряд. Tax, ноту d можно 
записать как ##с. 

Длительность определяется числом от 1 до 9, стоящим перед нотой (табл. 3). 
Установленная длительность распространяется на все последующие ноты и паузы (см. команду 
&). По умолчанию устанавливается длительность, равная 5 (одна четвертая). 


[| бен _________ 
[4 | Одна восьмая с rowo | 


еее. е.. 


| 6 | Одна четвертая с той ©. | 
Одна вторая 
| 8 | Одна вторая с той | 
| ов ene | 
р ОО 


Табл. 3. Длительности нот в операторе PLAY. 


oa- 


о 


Кроме обычных нот Вы можете задавать триоли. Для этого используются числа от 10 до 12. 


Ноты триоли следуют непосредственно за числом. Например: 
PLAY "3fed&llfed&fed" 


Триоли не изменяют установленной длительности нот. 

Кроме стандартных длительностей нот Вы можете использовать произвольные. Для этого 
перед нотой через символ подчеркивания (" ") ставят несколько параметров, задающих требуемую 
длительность. Например, ноту ДО длительностью 3/8 (1/8 +1/4) можно записать так: "3 5с". 
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Длительность всех последующих нот и пауз определяет последний параметр в связке. 


Довольно странные эффекты получаются при соединении длительностей обычных нот и 


триолей (например: "З_12с4е"). Поэкспериментируйте с этим. Про запись HOT, вроде бы, все. 
Теперь о командах: 


О 


U 


Изменение октавы. Номер октавы задается числом OT 0 до 8, следующим за командой (по 
умолчанию установлена октава 5). Соответствие параметра команды О музыкальным 
октавам приведено в таблице 4. 


ЕЛЕ i as 


| 4 | Малая октава | 
| Б | Вторая октава _____ 
| 8 | Четвертая октава _____ 


Тавл. 4. Октавы в опораторе PLAY. 


Обратите внимание, что ноты ниже b октавы 1 без МІРІ-интерфейса воспроизводиться 
будут неправильно. Также немаловажно, что хотя максимальный номер октавы равен 
восьми, ничто Вам не мешает использовать следующую - девятую, обозначая ноты 
прописными буквами. 


Разделитель параметров. Используется для отделения двух числовых параметров друг от 
друга. Например, когда надо задать длительность ноты сразу за установкой октавы: 
"O4N5d". По существу, эта команда является излишеством, так как вместо нее можно 
использовать пробел: "04 54". 


Пауза. Длительность паузы устанавливается так же, как и длительность ноты (см. выше). 
Например: "6c&de3&de". 


Установка громкости. Громкость задается числом от 0 (минимальная - выключено) до 15 
(максимальная). Например: "V10". По умолчанию установлена громкость 15. 


Программирование эффектов. Ноты могут воспроизводиться не только с фиксированной 
громкостью, но и со всевозможными эффектами: затуханиями, всплесками и т. д. Характер 
эффекта задается числом от 0 до 7, в соответствии с таблицей 5. По умолчанию установлен 


эффект 0. 


Временной параметр звукового эффекта. Для эффектов 0...3 параметр задает длительность 
действия, для 4 и 5 - период, 6 и 7 - полупериод (см. табл. 5). Значение параметра 
выбирается из диапазона 0...65535. По умолчанию установлено 65535. 


| Ø | Спад, затем тихо Sooo 


Повторяющийся подъем 
Повторяющийся подъем-спад 
Повторяющийся спад-подъем 


Табл. 5. Программирование эффектов. 


| 4 [| Повторяющийя спад ________ 
226272 


Включение звукового эффекта. После этой команды все ноты будут воспроизводиться с 
эффектом, установленным командами \ и Х. Эффекты отключаются по завершении 
стринга, либо при изменении громкости (команда У). 
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Следующая программа продемонстрирует действие всех эффектов: 
10 FOR A=0 TO 7 
20 PLAY "UX1000W"+STRS A+"cdef&" 
30 NEXT A 


К сожалению, в музыкальном сопроцессоре всего один генератор огибающей, поэтому Вам 
не удастся настроить несколько каналов на разные эффекты одновременно. Хотя 
одинаковые эффекты Вы можете использовать сразу в нескольких каналах, причем 
параметры огибающей необходимо задать только в одном из них, а в остальных достаточно 
указать команду U (см. выше). 


Т Темп исполнения. Задается числом от 60 до 240. По умолчанию устанавливается темп, 
соответствующий команде Т120. Задать темп можно лишь для всей мелодии в целом, 
поэтому он определяется только в стринге канала А (в других каналах команда Т 
игнорируется). 


(.) Повтор (репризы). Музыкальная фраза, взятая в скобки, повторится два раза. Допустимо 
использовать скобки в скобках (до 4 вложений). Закрывающая скобка без соответствующей 
ей открывающей заставит музыкальную фразу повторяться бесконечно от начала стринга. 
Используется это, например, в басовых и ударных партиях. 


н Останов оператора РГАУ. Встретив эту команду в стринге любого канала оператор РГАҮ 
закончит свою работу. Команда используется, например, для выхода из "зацикленной" 
басовой партии, когда заканчивается основная мелодия. 


Ја Комментарий. Используется для вставки пояснений. Например: 
PLAY "!5САЉЕ: !cdefgabC". 


Если после комментария в стринге никаких команд нет, TO закрывающий знак "!" ставить 
необязательно. 
M Устанавливает режим работы каналов. Каждый канал может воспроизводить не только 


чистый тон, но и так называемый белый шум. Распределение режимов задается числом от 1 
до 63, определяемым суммой кодов, соответствующих режиму каждого из каналов (табл. 
6). Как и генератор огибающей, генератор шума в музыкальном сопроцессоре только один, 
поэтому Вам не удастся настроить несколько каналов одновременно на шум с разной 
частотой. По умолчанию все три канала настроены на тон (команда М7). В следующем 


примере канал А настраивается на тон, а канал В - на шум: 
PLAY "М17седЬБаЁаСн","ОЗсС)". 


Если Вы укажете команду МО, то все каналы будут молчать, а Вы услышите 
потрескивание. 


| Канал | Я] B | C 
| Tow | 1 | 2 {4 | 


| Ши [8 116 | 32 | 


Табл. 6. Режимы работы каналов. 
Ү Установка канала МІРІ-интерфейса. Число от 1 до 16, следующее за командой, задает 
номер канала интерфейса, в который необходимо направить вывод музыкальных данных. 


7, Передача управляющих кодов МІРІ-интерфейсу. Код MIDI (число от 0 до 255) должен 
располагаться сразу за командой. Допустимо передавать сразу два байта. В этом случае их 
значения нужно отделить друг от друга пробелом или командой М. 

Обратите внимание, что все команды оператора PLAY должны быть набраны прописными 
буквами! 
В заключение приведу краткую сводку команд оператора PLAY (табл. 7) и сообщения об 

ошибках, которые могут возникать во время его выполнения (табл. 8). 
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Сообщение Значение 
| O |Тоо many brackets | Провышоно число вломений скобок 
Invalid note name | Встрочона ноопознанная команда 


| M [Note out of range | Нота вышла за диапазон муз. сопроцессора_| 
| N |0 of rango [Числовой параметр слишком мал или велик | 
| O [Тоо many tied notes | Слишком много длительностей связано знаком "| 


Действие 
ОТЫ ТЕКУЩОЙ И СЛеДУЮЩеЙ октав 
станов оператора PLAY 
станавливает режимы работы каналов (1-63) 
азделнтель параметров 
станавливает тЕКУЩУЮ октаву (0-9) 
станавливает темп (64-248) 
кличаст ЗВУКОВЫХ ЭФФОКТЫ 
станавливает громкость (Й-15) 
дает вид звукового эффекта (Й-7) 
адаот ДЛИТЕЛЬНОСТЬ ЗВУКОВОГО эффекта [Й-65535] 
станавливает канал М]-инторфойса (1-16) 
ородает данные МІ01- интерфейсу 
ЛНТОЛЬНОСТЬ HOT ИЛИ Nays 
оммонтарни 


Команда. 
a-9,A-G 


a 


<j 


| Команда | 
[а-9,Н-6 | 
a | 
ЕЕ 
БЕШИН 
ШЕГШЕ 
= 
= ae 
a a 


2 
1-12 


p= Fad) ===] | | 
© 
=] 
© 
= 
5 
= 


|_______| Соединитељ длительностей 


Тавл. 7. Команды оператора PLAY. 


Табл. 8. Ошивки оператора PLAY. 


5.1. Создание эффектов на PLAYe. 


С помощью оператора PLAY можно создавать очень интересные звуковые эффекты. 
Причем, делается это значительно проще, чем в случае с ВЕЕРом. Количество возможных 
эффектов ограничено только фантазией программиста. Чаще всего в них используются 
громкостные эффекты, многоголосие и генератор шума. 

Так как количество эффектов в данном случае неимоверно велико, не буду описывать 
каждый из них (принципы те же, что и в главе 2.1), а приведу несколько примеров с 
необходимыми комментариями. 


Пример первый: 


10 PLAY "X16384W006U9B" 


Пример второй: 


воспроизводит плавно затухающую ноту. 


10 PLAY "06X1000W3U1BX16384W0 9B" 
- модификация предыдущего эффекта. Громкость ноты сначала возрастает от минимальной до 
максимальной (мягкая атака), а затем плавно затухает. 


Пример третий: 


10 PLAY "T240W0X3000U08 (B&c&) " 
- этот эффект практически полностью аналогичен предыдущим, HO звучит совсем по-другому. 


Пример четвертый: 


10 PLAY "04X16384W3U9B" 


- здесь используется эффект, который в музыке называется мягкой атакой звука. 


В этих четырех эффектах применяется чистый тон, но Вы можете использовать и шум, 
вставив команду М8, или смесь тона с шумом (команда М9). Следующий пример такой: 


10 LET А$="Т240" 
20 FOR A=1 TO 8 


30 LET AS=AS$+"0"+STRS А+" 1CDEFGAB" 


40 NEXT A: PLAY AS 
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В этом эффекте сначала подготавливается музыкальная программа, а затем проигрывается. 
Её можно было бы задать прямо в операторе PLAY, но тогда это выглядело бы ужасно (несколько 
строк однотипного текста!). Если же воспроизводить её одновременно с созданием (в цикле), то 
появятся нежелательные паузы. 
Перед заданием основных данных в переменную А$ заносится команда Т240, что позволяет 
ускорить эффект. Попробуйте кроме Т240 добавить М8 или М9. 
Следующий пример: 
10 ТЕТ A$="T240": LET в$="" 
20 FOR А=1 TO 8 
30 LET А$=А$+"О"+5ТВ$ А+" 1CDEFGAB" 
40 ТЕТ B$=B$+"O"+STR$ (9-A)+" 1BAGFEDC" 
50 NEXT А: PLAY A$, BS 


Этот эффект очень похож Ha предыдущий. Ho в данном случае используются два голоса, 


частоты которых смещаются в противоположных направлениях. Еще один пример: 
10 PLAY "03 lcdefgabC","05 1lcdefgabC","06 lcdefgabC" 


Здесь используются все три канала, настроенные Ha разные частоты, что звучит довольно 
интересно. 
В последнем примере нетрадиционно используется генератор огибающей. С его помощью 


формируется необычный тембр: 
10 PLAY "W4X1UcdefgabCW7xX4cdefgabC" 


Возможности оператора PLAY не исчерпываются приведенными эффектами. Вы можете 
поэкспериментировать с ним. 

И в заключение немного критики. Оператор РГАУ, несмотря на все свои достоинства 
(которые принадлежат скорее музыкальному сопроцессору), имеет и недостатки. Например, он не 
позволяет воспроизводить ноты в режиме легато (слитно), а также очень короткие ноты. 


5.2. Создание музыки на PLAYe. 


С помощью оператора PLAY можно очень легко создавать неплохие трехголосые мелодии. 


Все его возможности описаны в главе 5, поэтому здесь я ограничусь несколькими примерами: 
10 PLAY "T60W0X10000U3g4g1CCb5b3£4flaag5g3eaglg#f5f3feda5g" 
10 PLAY "T180W0X10000U7c6e3fF9&7cb6e3f&04efefe5gé&E", 
"ОЗОЗс&&&е&&Ё&Е&ЕК&6С3с&&&е&&Ё&О4ЛЕЕЕКЕ5С3с" 


Мелодию можно разнообразить с помощью ударных инструментов. Вот, например, всем 


известная песенка "В траве сидел кузнечик" в стиле панк-рок: 
10 PLAY "T240M35fcfcfee&ececeff&fcfcfee&ececefH", 
"\у14О4&Ё&с&е&с&е&с&Ё&сС&Ё&с&е&с&е&с&Ё", "WOX2000Ucé&) " 


Несмотря на то, что с помощью оператора PLAY можно создавать неплохую музыку и 
эффекты, самые красивые варианты получаются в кодах. Поэтому настоятельно Вам советую 
изучить следующую главу. 
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6. Управление музыкальным сопроцессором. 


Музыкальный сопроцессор AY-3-8910 (АҮ-3-8912) позволяет генерировать трехканальный 
звук с изменяемой громкостью и шумовыми эффектами. Зта микросхема содержит в себе 
шестнадцать регистров, управляющих звуком. Регистры обозначаются КО...В 15. 

Выбор регистра осуществляется путем записи его номера в порт 65533 (#FFFD), а затем 
чтением содержимого выбранного регистра из этого же порта, либо записью нового значения 
выбранного регистра в порт 49149 (#BFFD). Выбрав номер регистра один раз, Вы можете 
выполнять сколько угодно считываний или записей. И только когда требуется доступ к другому 
регистру надо сменить содержимое порта 65533. 

После задания необходимых параметров сопроцессор начинает генерировать звук, 
освобождая 7-80 для выполнения других операций. 

Все временные интервалы в микросхеме АУ получаются путем деления его тактовой 
частоты, равной 1.7734 мГц, на определенное число. 


6.1. Регистры. 


ВО - младший байт частоты канала А 
КІ - старший байт частоты канала А 
R2 - младший байт частоты канала В 
R3 - старший байт частоты канала В 
R4 - младший байт частоты канала С 
В5 - старший байт частоты канала С 
Требуемая частота любого канала получается путём деления тактовой частоты 
сопроцессора на 16 с последующим делением результата на 12-ти разрядное значение, получаемое 
слиянием регистра младшего байта частоты и битов DO...D3 регистра старшего байта частоты. 
Таким образом, всего можно задать 4095 различных частот (от 27 Гц до 110 кГц). Естественно, 
самых высоких Вы не услышите. Обратите внимание, что разница между двумя соседними 
значениями в области низких частот составляет доли герца, а в области высоких частот достигает 
нескольких килогерц. 
Младший и старший байты, а также частоту можно рассчитать по следующим формулам: 
Hi=INT (INT (110830/Fq+.5) /256) 
Lo=INT (110830/Еа+.5) -Hi*256 
Fq=110830/ (Lo+256*Hi) 
- где Hi - старший байт, Lo - младший байт, а Ед - частота в Гц. Обратите внимание, что в 
большинстве случаев заданную частоту невозможно точно передать музыкальному 
сопроцессору. В таблице 9 приведены значения регистров тона для всех возможных нот. 


ore СК | К |ЈБ ЈМ |1 |2 ШЕП БЕШ БЕЛЕ 6 | 
до ___| _ |3389 | 1694] 847 | 424 | 212 | 195 | 53 | 25 | 13 | 
Щ0-д#з | [3199 | 1599 | 800 | 400 | 200 | 108 | 50 | 25 | 12 | 
[PE | | 3219 |1510 755 | 377 | 189 | 94 | 47 | 24 | | 
|РЕ-днез | | 2850 [1425] 712 | 356 | 178 | 89 | 45 | 22 | | 
ми | [авай | 1345] 672 | 336 | 158 | 84 | 42 | 21 | | 


а | 125391269 | 635 | 317 | 159 | 79 | 49 | 20 | | 
[ФЯ-диЕЗ _ 
comb | 


а 9. Значения регистров тона. 
Кб - задает частоту шума 
Требуемая частота шума получается путем деления тактовой частоты на 256 с 
последующим делением результата на 5-ти разрядное значение, расположенное в пяти младших 
разрядах (00...04) регистра Кб. Всего можно задать 31 различную частоту (от 223 Гц до 7 кГц). 
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Значение регистра Кб и частоту шума можно рассчитать по следующим формулам: 
R=INT (6927.3437/Еа+.5) 
Fq=6927.3437/R 


- где К - значение Кб, a Ед - частота в Гц. 
Все сказанное про генераторы тона, также справедливо и для генератора шума. 
В7 - управление микшером и вводом/выводом 

Отдельные биты этого регистра используются в различных целях: 

DO - тон канала А 

D1 - тон канала В 

D2 - тон канала С 

D3 - шум канала А 

D4 - шум канала В 

D5 - шум канала С 

D6 - порт A: 0 - ввод/1 - вывод 

D7 - порт В: 0 - ввод/1 - вывод (только АУ-3-8910) 

Ноль в битах DO...D5 указывает на то, что функция разрешена. Таким образом, каждый 
канал можно настраивать на три различных состояния: тон, шум и тон+шум. Порты ввода/вывода 
содержащиеся в музыкальном сопроцессоре в ZX-Spectrum не используются, однако, к ним можно 
подключить дополнительные джойстики, принтер, МПШ]-интерфейс или что-нибудь подобное. 
Порт В существует только в АУ-3-8910. 

R8 - управление амплитудой канала A 
К9 - управление амплитудой канала В 
R10 - управление амплитудой канала С 

Биты 00...03 этих регистров устанавливают громкость для каждого из каналов (от 0 до 15). 
Если в одном (или нескольких) из них установлен бит D4, то значение в младших битах 
игнорируется, а амплитудой данного канала управляет генератор огибающей (см. дальше). 

R11 - младший байт периода огибающей 
R12 - старший байт периода огибающей 

Требуемый период огибающей получается путем деления тактовой частоты сопроцессора 
на 256 с последующим делением результата на 16-ти разрядное значение, получаемое слиянием 
регистров R11 и R12. Всего можно задать 65535 различных периодов. Значения регистров R11 и 
R12, а также частоту и период огибающей можно рассчитать по следующим формулам: 

Hi=INT (INT (6927.3437/Еа+.5) /256) 
Lo=INT (6927 .3437/Fq+.5) -Hi*256 
Fq=6927 .3437/ (Lo+256*Hi) =1/Pd 
Pd= (Lo+256*Hi) /6927 .3437=1/Fq 
- rye Lo и Hi - значения регистров R11 и R12, соответственно, Ед - частота огибающей в Гц, a Pd - 
период огибающей в секундах. 
R13 - управление формой огибающей 

Требуемая форма огибающей задается битами DO...D3 регистра КІЗ следующим образом: 

DO – затухание 

D1 – чередование 

D2 — нарастание 

D3 - продолжение 

В таблице 10 приведены все возможные комбинации этих битов. 
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03 02 01 DA| Значение R13 


Йй 
А 
1@@@] 8 ___| Позторяющийя спад | МУҸУҸУҸҸҸӘҸӘҸӘҸӰ 
1 
1 
| 
| 


ejeje | 
со |с | |с 


ПЕ Е ПЕНИИ УТЕС ae eel 
[1188] 12 | Повторяющийся подъем | УКИИИИИИИИИИ | 
1101] 13 | Подъем, затем громко _ | _______ 


Табл. 10. Значения регистра. R13. 


о | | 
le |с 


1 
x 
1 
Ё 
1 
| 
1 
0 


= 
Е 


R14 - порт ввода/вывода A 
R15 - порт ввода/вывода В 
Как уже говорилось выше, порты ввода/вывода большого значения не имеют и на 
генерируемый звук не влияют. 


6.2. Программирование. 


Все звуковые эффекты и музыка программируются путем постоянной смены значений 
регистров с необходимыми задержками. Осуществить это может, например такая подпрограмма: 


10 LD HL, 60000 ; НЬ=адрес данных 

20 LOOP LD A, (HL) ; А=байт данных 

30 INC HL ; HL=HL+1 

40 CP 255 ; А=255? 

50 RET Z ; если да, то возврат 

60 GP 16 ; A=16? 

70 JR NZ, ВЕС ; если нет, то перейти на ВЕС 
80 LD B, (HL) ; В = длительность паузы 

90 PAUSE HALT ; ожидание прерывания 

100 DINZ PAUSE ‚ цикл 

110 JR CONT ; перейти на CONT 

120 REG LD BC, 65533 ; ВС=адрес порта регистра 
130 OUT (С), А ; записать номер регистра 
140 LD B,191 ; ВС=адрес порта данных 

150 LD A, (HL) ; А=значение регистра 

160 OUT (C),A ; записать данные в регистр 
170 CONT INC HL ; HL=HL+1 

180 JR LOOP ; переход к началу 


Эта программа довольно примитивна, и для воспроизведения музыки не очень подходит, но 
для создания простых эффектов - в самый раз. Перед её запуском не забудьте подготовить блок 
данных по адресу 60000, состоящий из пар данных и заканчивающийся числом 255. Первым 
значением в каждой паре должен быть номер регистра, а вторым - число, которое нужно записать 
в этот регистр. Кроме того, если первое значение равно 16, то второе интерпретируется как 
задержка (в пятидесятых долях секунды). 

Для воспроизведения музыки используются гораздо более сложные подпрограммы, как 
правило работающие во втором режиме прерываний. Данные для этих подпрограмм обычно 
хранятся в значительно более удобной форме, раздельно для каждого из трёх каналов. Привести 
полностью хотя бы простейший пример такой подпрограммы в этой книге не представляется 
возможным из-за его сложности, но, если Вы умеете обращаться с ассемблером, Вам ничего не 
стоит сочинить такую подпрограмму, а я могу подсказать, как это сделать. 

Сначала разберёмся с форматом данных. Я предлагаю следующую систему: мелодия будет 
задаваться тремя (по числу голосов) основными блоками данных. Так как практически любая 
мелодия состоит из одинаковых фрагментов, повторяющихся в разном порядке, логично было бы 
в главных блоках задавать не саму мелодию, а адреса таких фрагментов. Эти фрагменты обычно 
называют паттернами (райегп — трафарет, шаблон). 

Итак, в главных блоках могут содержаться следующие двухбайтовые значения: 

65535 (#FFFF) - конец мелодии 


0 (#0000) - начало цикла 
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addr (#ХХХХ) - адрес следующего паттерна 

Код "начало цикла" (0) отмечает место, с которого начнет воспроизводиться мелодия при 
повторении. 

Теперь займемся паттернами. Не вдаваясь в теорию, приведу разработанный мной формат: 


128 (#60) - конец паттерна 
129,n (#81,#ХХ) - установить длительность п 
130,n (#82, #ХХ) - шум с частотой n(0...31) 
131,n1,n2 (#83, 4#XX,#XX) - шум с частотой п (0...31) + нота (0...100) 
132,n1,n2 (#84,4XX,#XX) - прямое задание частоты тона (0...4095) 
133,addr (#85,4#XXXX) - задание блока изменения частоты тона 
134,addr (#86 #ХХХХ) - задание блока изменения частоты шума 
135,addr (#87,4#XXXX) - задание блока изменения громкости 
136,n1,n2,n3 (#88#ХХ #ХХХХ) - управление генератором огибающей 
0...100 (#00...#64) - ноты от ЛЯ субконтроктавы 

Поясню некоторые коды: 
129 - Как Вы, наверное, заметили, при задании ноты её длительность не указывается. 


Дело в том, что используется длительность, установленная заранее с помощью 
этой команды. Длительность измеряется в пятидесятых долях секунды. 
131 - С помощью этого кода Вы можете одновременно воспроизводить тон и шум. 
133,134,135- Эти коды задают дополнительные блоки данных, указывающие способ изменения 
частоты тона, частоты шума и громкости на протяжении звучания ноты. Если 
после кодов 133 или 134 вместо адреса блока находится 0, то изменение частот 
отключается. Число от 0 до 15 после кода 135 указывает на необходимость 
поддержания постоянного уровня громкости, соответствующего этому числу. 
136 - Этот код управляет генератором огибающей. После него должно находиться 
однобайтовое число от 0 до 7, указывающее на форму огибающей в соответствии 
с таблицей 5 и двухбайтовое число, задающее период изменения огибающей. 
0...100 - Эти коды задают ноты. Код 0 соответствует ноте ЛЯ субконтроктавы, 1 - ЛЯ#, 2 - 
СИ ит. д. 
В блоке, описывающем изменение частоты тона, используются следующие значения: 
128 (#80) - конец блока 
-127... 127 (#81.. #79) - смещения частоты 
Блок изменения частоты шума будет задаваться в следующем формате: 


128 (#80) - конец блока 
-31...31 (#E1.. #1F) - смещения частоты 
А блок изменения громкости пусть задается так: 
128 (#80) - конец блока 
0... 15 (#00.. .#0F) - значения громкости 


Вполне логично было бы сделать эту процедуру работающей во втором режиме 
прерываний. Исходя из этого, а также из предложенного формата данных можно понять, что для 
каждого из каналов понадобится массив переменных. Я предлагаю следующий его формат: 


смещение | размер значение 
0 2 начальный адрес основного блока данных 
2 2 текущий адрес в основном блоке данных 
4 2 начальный адрес блока изменения частоты тона 
6 2 текущий адрес в блоке изменения частоты тона 
8 2 начальный адрес блока изменения частоты шума 
10 2 текущий адрес в блоке изменения частоты шума 
12 2 начальный адрес блока изменения громкости 
14 2 текущий адрес в блоке изменения громкости 
16 2 текущий адрес в текущем паттерне 
18 1 значение текущей длительности 
19 1 счётчик длительности 
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смещение 


размер 


значение 


20 


1 


число оставшихся повторений 


Кроме того, понадобится ещё по три байта на каждый канал для хранения темпа, счётчика 
темпа и флага разрешения звука. 
В этот пакет будут входить следующие процедуры: 


SINIT - Инициализация таблиц, подключение второго режима прерываний. 

SSTOP - Выключение сопроцессора, восстановление стандартного режима прерываний. 

SNEW - Запуск всех трех каналов. При вызове этой подпрограммы в регистрах HL, DE и ВС 
должны быть адреса главных блоков данных для каналов А, В и С, соответственно. В 
регистре А должно находиться число повторе ний мелодии от 1 до 254 или 255, если 
Вы хотите, чтобы мелодия повто рялась бесконечно. 

SNEWA - Запуск канала А. В регистре HL должен быть адрес блока данных, а в регистре А - 
число повторений (аналогично SNEW). Работу каналов В и С эта процедура не 
затрагивает. 

SNEWB - Запуск канала В. Все аналогично SNEWA. 

SNEWC - Запуск канала С. Все аналогично SNEWA. 

МОТЕ - Запрет/разрешение работы. В регистре А должен быть номер канала от О до 2 или 3, 
если Вы обращаетесь ко всем каналам. В регистре В должен быть код режима работы: 0 
- остановка, 1 - беззвучная работа, 2 -воспроизведение. 

STATUS - Получение состояния канала. В регистре А должен быть номер канала от 0 до 2. По 
возвращению из процедуры STATUS регистр А содержит код режима работы 
выбранного канала (аналогично В в MUTE). 

ТЕМРО - Установка темпа. В регистре А должен быть номер канала от 0 до 2 или 3, если Вы 
обращаетесь ко всем каналам. В регистре В должно находиться значение темпа. Итак, 
начало пакета может выглядеть так: 

10 ORG 60000 

20 JP SINIT 

30 JP SSTOP 

40 JP SNEW 

50 JP SNEWA 

60 JP SNEWB 

70 JP SNEWC 

80 JP MUTE 

90 JP STATUS 

Процедура TEMPO может выглядеть так: 

100 TEMPO DI 

110 PUSH HL 

120 PUSH AF 

130 LD HL, TEMPS ; НЬ=указатель на темпы 

140 СР А, З 

150 JR Z, TEMP3 

160 ADD А,Ь 

170 iD ‚А 

180 JR NC, TEMP1 

190 INC H 

200 TEMP1 LD (HL) ,B 

210 INC L 

220 INC HL 

230 INC HL 

240 LD (HL),B 

250 TEMP2 POP AF 

260 POP HL 

270 E 

280 RE 

290 TEMP3 PUSH DE 

300 LD D, 6 

310 TEMP4 LD (HL),B 

320 INC HL 

330 DEC D 
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340 JR NZ, TEMP4 

350 POP DE 

360 JR TEMP2 

Раз уж пошли обращения к данным, надо привести строки с их описанием: 

370 CHAN А DEFS 21 ; массив переменных для канала A 

380 CHAN В DEFS 21 ; массив переменных для канала В 

390 СНАМ С DEFS 21 ; массив переменных для канала С 

400 MUTS DEFS 3 ; флаги разрешения звука 

410 ТЕМР5 DEFS 3 ; темпы 

420 CURTS DEFS 3 ; счетчики темпов 

430 AYREGS DEFS 14 ; копии регистров сопроцессора 

440 ENVS DEFB 0,4,11,13,8,12,14,10 ; формы огибающей 

450 SVOLS DEFW #8000,#8001, #8002 ; таблицы изменения громкости 

460 РЕЕМ #8003,#8004, #8005 ; для стандартных значений 

470 DEFW #8006, #8007, #8008 

480 DEFW #8009, #800А, #800B 

490 DEFW #800С, #8000, #800Е 

500 DEFW #800Е 

510 NOTES DEFW.. ; сюда необходимо записать все значения из 
; таблицы 9 от левого верхнего угла в порядке 
; сверху - вниз, справа - налево 


Строка 430 содержит область данных, которая используется для вывода звука. Сначала в 
ней формируются значения всех регистров сопроцессора с помощью следующей подпрограммы: 


520 SETAY PUSH HL 

530 PUSH AF 

540 LD AL, AYREGS 
550 ADD A,L 

560 LD L,A 

570 JR NC, SETAY1 
580 INC HL 

590 ЗЕТАУТ LD (HL) ,B 
600 POP AF 

610 POP HL 

620 RET 


Ей надо передать номер регистра в A и ero значение в В. Затем содержимое этой области 
копируется в реальные регистры сопроцессора другой подпрограммой: 


630 AYOUT PUSH HL 
640 PUSH DE 
650 PUSH BC 
660 LD HL, AYREGS+13 
670 LD D,13 
680 AYOUT1 LD BC, 65533 
690 OUT (C),D 
700 LD B,191 
710 iD E, (HL) 
720 OUT (C),E 
730 DEC HL 
740 DEC р 
750 JP Р, AYOUT1 ; если D>=0, то перейти Ha AYOUT1 
760 POP ВС 
770 POP DE 
780 POP HL 
790 RE 
Любой из регистров в этой области можно также прочитать: 
800 СЕТАУ PUSH HL 
810 РОЗН АЕ 
820 LD HL, AYREGS 
830 ADD А,Ь 
840 iD „A 
850 JR NC, GETAY1 
860 INC H 
870 СЕТАУТ LD B, (HL) 
880 POP AF 
890 POP HL 
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900 ВЕТ 

Этой подпрограмме нужно передать номер требуемого регистра в А и она вернёт его 
значение в В. 

Строка 440 понадобится для дешифрации кода огибающей. Если любое число из таблицы 5 
прибавить к метке ЕМУ$ и по полученному адресу прочитать один байт, Вы получите значение, 
которое надо записать в В 13. 

Строка 450 будет нужна для дешифрации стандартных уровней громкости. Для этого надо 
число от 0 до 15 умножить на 2 (можно использовать команду SLA) и прибавить к метке SVOLS. 
Полученное значение нужно использовать в качестве адреса блока изменения громкости. 

Строка 510 будет полезна для дешифрации нот. Если код ноты (от 0 до 100) умножить на 2 
(команда SLA) и прибавить к метке NOTES, а по полученному адресу считать двухбайтовое число, 
Вы получите значения младшего и старшего регистров частоты. 

Теперь займёмся основными процедурами: 


910 STATUS РОЗН HL 
920 LD HL,MUTS 
930 ADD A,L 
940 iD ‚А 
950 JR NC, STAT1 
960 INC H 
970 STATI LD A, (HL) 
980 POP HL 
990 RET 
Эта маленькая, но полезная процедура поможет программисту узнать, в каком состоянии 


находится тот или иной канал. Например, чтобы найти, какой из них свободен. 


Следующая процедура - MUTE: 
1000 MUTE DI 


1010 PUSH HL 

1020 PUSH AF 

1030 LD HL,MUTS 
1040 CP A,3 
1050 ЈЕ Z,MUT2 
1060 ADD A,L 
1070 LD L,A 
1080 JR NC, MUT1 
1090 INC H 

1100 MUTI LD (HL) ,B 
1110 POP AF 

1120 POP HL 

1130 EI 

1140 RE 

1150 MUT2 LD (HL) ,B 
1160 ІМС HL 

1170 LD (HL) ,B 
1180 ІМС HL 

1190 ЈЕ MUTI 


Эта процедура понадобится, например, для временной остановки работы одного из каналов. 
Теперь - процедуры инициализации каналов: 


1200 SNEWC PUSH ІХ 

1210 LD ТХ, СНАМ С 
1220 PUSH BC 

1230 LD B,2 

1240 R SNEW1 
1250 SNEWB PUSH ІХ 

1260 LD ІХ, CHAN В 
1270 PUSH BC 

1280 LD В,1 

1290 R SNEW1 
1300 SNEWA PUSH ІХ 

1310 LD IX,CHAN A 
1320 PUSH BC 

1330 LD B,0 
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1340 SNEW1 DI 
1350 PUSH BC 
1360 PUSH DE 
1370 PUSH HL 
1380 PUSH IX 
1390 POP HL 
1400 PUSH HL 
1410 POP DE 
1420 INC DE 
1430 LD BC, 20 
1440 LD (HL) ,B 
1450 LDIR 
1460 POP HL 
1470 PUSH HL 
1480 LD (1Х+20),А 
1490 LD (IX+0),L 
1500 LD (IX+1),H 
1510 LD (IX+19),0 
1520 iD E, (HL) 
1530 INC HL 
1540 LD D, (HL) 
1550 INC HL 
1560 LD (IX+2),L 
1570 LD (IX+3),H 
1580 LD (1Х+16),Е 
1590 LD (IX+17),D 
1600 LD HL, SVOLS+30 
1610 LD (IX+12),L 
1620 LD (IX+13), 
1630 LD (IX+14),L 
1640 LD (IX+15),H 
1650 LD (IX+18),13 ; длительность по умолчанию = 1/4 
1660 POP HL 
1670 POP DE 
1680 POP BC 
1690 LD A,B 
1700 LD B,2 
1710 CALL MUTE 
1720 LD В,1 
1730 CALL TEMPO 
1740 POP BC 
1750 POP IX 
1760 ЕТ 
1770 КЕТ 

И, наконец, инициализация всех трёх каналов: 
1780 SNEW РОЗН HL 
1790 CALL SNEWA 
1800 PUSH DE 
1810 POP HL 
1820 CALL SNEWB 
1830 PUSH BC 
1840 POP HL 
1850 CALL SNEWC 
1860 POP HL 
1870 RET 


Подпрограммы инициализации подготавливают в массивах переменных все необходимые 
для работы данные. Они устанавливают адреса блоков изменения частоты тона и шума в 
положение "не используется" (заносят в них 0). Выбирают постоянный уровень громкости (15). А 
также устанавливают длительность нот по умолчанию равной 1/4 секунды. 

Вот подпрограмма подключения второго режима прерываний: 


1880 SINIT 
1890 
1900 
1910 


LD A,24 

LD (65535),A 
LD A,195 

LD (65524),A 
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А 


(2 


А 


(2 


HL=aflpec обработчика 


запрет 
работы 
всех 


каналов 


подпрограмма, возвращающая стандартный режим прерываний и выключающая 


В=0 
очистка области регистров 


В=255 
В7=255 (выключение микшера) 
вывод регистров в сопроцессор 


Теперь займёмся обработчиком прерываний. Так как он должен обслуживать три канала, а 


1920 LD HL, INTR 
1930 LD (65525),HL 
1940 LD HL, 65024 
1950 LD DE, 65025 
1960 LD BC, 256 
1970 LD (HL) ,255 
1980 LD A,H 
1990 LDIR 
2000 DI 
2010 LD I,A 
2020 IM 2 
2030 LD HL,MUTS 
2040 XOR A 
2050 LD (HL),A 
2060 INC HL 
2070 LD (HL) ,A 
2080 INC HL 
2090 LD (HL),A 
2100 EI 
2110 RET 

A это 
сопроцессор: 
2120 SSTOP DI 
2130 LD А, 63 
2140 LD I,A 
2150 IM 1 
2160 EI 
2170 LD HL, AYREGS 
2180 LD DE, AYREGS+1 
2190 LD ВСДЗ 
2200 LD (HL) ,B 
2210 LDIR 
2220 LD A,7 
2230 DEC В 
2240 CALL SETAY 
2250 JP AYOUT 
массивы пер еменных 
подпрограмму: 
2260 INTR PUSH AF 
2270 PUSH HL 
2280 PUSH DE 
2290 PUSH BC 
2300 PUSH ІХ 
2310 LD ТХ,СНАМ А 
2320 XOR A 
2330 CALL DISPAT 
2340 LD IX,CHAN B 
2350 LD А,1 
2360 CALL DISPAT 
2370 LD ТХ,СНАМ С 
2380 LD A,2 
2390 CALL DISPAT 
2400 CALL AYOUT 
2410 POP ІХ 
2420 POP BC 
2430 POP DE 
2440 POP HL 
2450 POP AF 
2460 RST 56 
2470 RE 


(2 


(2 


легче всего адресовать регистром IX, можно предложить такую 


сохранение регистров 


подготовка регистров 
сопроцессора 


для всех каналов 


вывод регистров в сопроцессор 
восстановление регистров 


вызов стандартного обработчика 


Этот обработчик для каждого из каналов вызывает процедуру - диспетчер (DISPAT), занося 
в регистр А номер канала, а в регистр [Х - адрес массива его переменных. 
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2480 DISPAT 


2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 


Роль процедуры DISPAT заключается в обработке переменных TEMPS, CURTS и MUTS 
для указанного канала, а также в вызове основной подпрограммы создания звука - GETSND. 
Вот текст процедуры DISPAT: 


DISP1 


DISP2 


PUSH 


AF 


D a OT E 
= 
Е! 


Де) 


Pe 
а 


H ш 0 


Е,А 
р, 0 
STATUS 


NZ,DISP1 


DISP3 


DISP4 


а | 
и ошшошит осом омот о» ом 


ооосоот одао: 
Сан СОК) 


HHHE 
Q 


Que 


МО Os у-ү 22 45) 


Ј ООРБЕ 


ЧУЈЕ 
ооош 
У 


НІ, АҮКЕС5+6 


канал остановлен ? 


уменьшение счетчика темпа 


обновление 
счетчика 


темпа 


вызов основной процедуры 


надо 


"загл 


"заглушать" ? 


гушение" 


канал 


а 


5 
2830 DINZ 
2840 О 
2850 Ё 
2860 I 
2870 ADD 
2880 LD 
2890 RET 


Итак, все сервисные процедуры приведены. Осталась только одна - GETSND: 
2900 GETSND ... 


Вот её-то написание я и предлагаю Вам. Ho не пугайтесь - я все подробно объясню. 

Скорее всего, процедура GETSND будет достаточно велика. Может быть даже больше всех 
приведенных процедур вместе взятых. Но ничего трудного в ней нет, а её объём обусловлен 
достаточно сложным форматом данных. 

Задача процедуры GETSND сводится к формированию в определенных ячейках области 
AYREGS данных одного из каналов для последующего копирования их в регистры сопроцессора. 

В качестве параметров этой процедуре передаётся номер канала в регистре А (чтобы она 
знала в каких ячейках размещать данные для частоты, громкости и т.п.) и адрес массива 
переменных в регистре ГХ. Обратите внимание, что она обязана сохранить значение регистра А! 
Возможно, Вам придется даже завести дополнительную переменную для его хранения. 

Итак, порядок действий в процедуре GETSND следующий: 

1. Проверить не равен ли нулю счётчик длительности (1Х+19). 
2. Если нет, то продолжить воспроизведение текущей ноты. 
3. Если равен, то выбрать новую ноту и начать её воспроизведение. 
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В понятие "продолжить воспроизведение текущей ноты" входит следующее: 


. Уменьшить счётчик длительности. 
. Если адрес одного из дополнительных блоков равен 0, то пункты 3...5 для этого блока 


выполнять не надо. 


: Выбрать очередные значения из блоков изменения частот и громкости, используя переменные 


IX+6/TX+7, IX+10/IX+11 и IX+14/IX+15. 


. В соответствии с выбранными значениями и номером канала обновить с помощью процедур 


СЕТАУ и SETAY область AYREGS (обратите внимание, что смещения частот могут быть и 
отрицательными). 


. Обновить переменные по адресам [Х+6ЛХ+7, IX+10/IX+11 и 1Х+141Х +15 в соответствии с 


пунктом 3. 
"Начать воспроизведение ноты" включает в себя только один пункт: 


. Переписать переменные по адресам IX+4/IX+5, IX+8/IX+9, IX+12/IX+13 и [Х+18 в их счётчики 


- дубли (IX+6/IX+7, IX+10/IX+11, ТХ+141Х +15 и [Х+19). 
А вот пункт "выбрать новую ноту" - посложнее: 


. Выбрать очередной байт из текущего паттерна (адрес - 1Х+16/1%Х +17). 
. Если он не равен 0...100, 130, 131 и 132 - обработать как соответствующий управляющий код и 


перейти к пункту 1. 


. Соответственно с байтом или его параметрами и номером канала обновить область AYREGS и 


переменную 1Х+16ЯХ+17. 
Теперь об обработке управляющих кодов: 


Код 128: 


1. 


2. 
3. 


4. 


5. 


Выбрать адрес следующего паттерна из основного блока (адрес в основном блоке содержится в 
IX+2/IX+3). 

Обновить переменную 1Х+21%Х +3. 

Если адрес паттерна равен нулю, скопировать переменную 1Х-+2/Х-3 в IX+0/IX+1 и перейти к 
пункту 1. 

Если адрес равен 65535, скопировать переменную ГХ+0/ГХ+1 в [Х+2/ Х+3 и уменьшить счётчик 
повторений (1Х+20). Если счётчик повторений равен нулю, установить канал в состояние 
"остановлен" с помощью процедуры МОТЕ. Перейти к пункту 1. 

Записать выбранный адрес в ГХ+16/ТХ+17 и "выбрать новую ноту". 


Код 129: 


1. 


Взять байт, следующий за этим кодом и занести в [Х+18. "Выбрать новую ноту". 


Код 133 (134): 


1. 


Взять адрес, следующий за этим кодом и поместить его в IX+4/IX+5 (IX+8/IX+9). "Выбрать 
новую ноту". 


Код 135: 


1. 
2. 
3. 
4. 


Взять адрес, следующий за этим кодом. 

Если он меньше 16, вычислить соответствующий адрес в таблице SVOLS. 
Поместить полученный адрес в [Х+12ЛХ+13. 

"Выбрать новую ноту". 


Код 136: 


Фром 


. Установить в регистре громкости заданного канала значение 16. 
. Записать в ІХ+14/1Х+15 ноль. 


Взять байт, следующий за этим кодом. 
Вычислить по таблице ЕМУ$ значение R13 и обновить область AYREGS. 
Взять два байта, следующие за кодом формы и занести их в ячейки 11 и 12 области AYREGS. 


. "Выбрать новую ноту". 


Теперь о том, как можно рассчитать номера регистров для заданного канала. Чтобы 


рассчитать номер регистра частоты достаточно номер канала умножить на 2 (ADD A,A). 
Полученное число будет номером регистра младшего байта частоты. Чтобы получить номер 
регистра старшего байта частоты, полученное значение надо увеличить на | (INC A). 


Чтобы вычислить номер регистра громкости надо к номеру канала прибавить 8 (ADD А,8). 
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Если Вы напишите процедуру GETSND, в Ваших руках окажется довольно мощная 
программа, пригодная для написания как музыки, так и эффектов. 

И в конце описания этой программы - советы по составлению для неё блоков данных. 

Чтобы ноту повысить или понизить на октаву необходимо её значение соответственно 
увеличить или уменьшить на 12. Ноте ДО первой октавы соответствует число 39. 

Значения длительностей Вы можете взять из таблицы 11. 


Нота Значение 
3 


Одна шестнадцатая сы 
Одна шестнадцатая с точкой 
Одна восьмая 

Одна восьмая с точкой 

Одна четвертая 

Одна четвертая с точкой 

Одна вторая 

Одна вторая с точкой 


Целая 


eae ааа аа R] 


о 


Табл. 11. Длительности нот. 


Теперь несколько советов по программированию сопроцессора. 

Для формирования новых тембров можно использовать генератор огибающей, настроенный 
на периодически изменяющуюся громкость и большую частоту. Особенно хороших результатов 
можно добиться, настроив его на частоту, кратную частоте основного сигнала. 

Для заглушения музыкального сопроцессора довольно часто используется запрещение всех 
функций микшера (вывод байта 255 в К7), но такой способ не очень надежен. Если генератор 
огибающей настроен на периодически изменяющуюся громкость, то этот трюк не пройдет: 
останется слышным щелканье. Для полного заглушения сопроцессора могу посоветовать такую 


подпрограмму: 

10 LD HL, DATA 
20 iD E,10 

30 LOOP LD BC, 65533 
40 OUT (С),Е 

50 LD A, (HL) 
60 LD B,191 

70 OUT (С),А 

80 INC HL 

90 DEC Е 

100 LD A,E 

110 СР 6 

120 JR NZ, LOOP 
130 RET 

140 DATA DEFB 0,0,0,255 


Во многих 


10 
20 
30 
40 
50 
60 
70 
80 
90 


D 


(2 
А 


(2 


НІ=адрес данных 

Е=номер первого регистра 
ВС=адрес порта регистров 
вывод Е в порт BC 

А=значение очередного регистра 
ВС=адрес порта данных 

вывод А в порт ВС 

HL=HL+1 


E=E-1 


если нет, то цикл 
возврат 
данные для регистров АҮ 


случаях требуется определить присутствует ли сопроцессор в данном 
компьютере. Некоторые делают это проверяя тип компьютера (48К/128К), но этот способ не 
совсем справедлив, ведь АҮ может стоять и на старом добром Спектруме. Вот подпрограмма, 
определяющая присутствие сопроцессора более достоверно: 


ВС, 65533 


(2 


ВС=адрес порта регистров 
A=0 
выбор peructpa 0 
ВС=адрес порта данных 

вывод 0 в выбранный регистр 

ВС=адрес порта регистров 

ввод значения из выбранного регистра 
A=0? 

возврат 


Если после вызова этой подпрограммы флаг Z сброшен, то сопроцессор присутствует. В 
противном случае - нет. 
И напоследок хочу рассказать об одном довольно интересном приёме. Он очень часто 
используется во многих программах. Читая данные из регистров громкости и преобразовывая их 
соответствующим образом в графическую информацию одновременно с воспроизведением 
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музыки, можно сделать цветомузыку или пиковые индикаторы уровня сигнала. 
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7. Обзор программного обеспечения. 


Для ZX-Spectrum создано довольно много программ, позволяющих создавать различные 
звуки, но, к сожалению, многие из них не производят положительного впечатления. 

Первую группу программ, которую я опишу, можно окрестить редакторами звуковых 
эффектов. Они весьма немногочисленны. 

Программу SPECSOUND фирмы OZ Software отличает очень неудобный пользовательский 
интерфейс и возможность редактирования всего одного эффекта. 

Программа SOUND ЕХ фирмы Dk'tronics довольно неплохое произведение. Она позволяет 
создавать как эффекты с чистым тоном, так и шумовые эффекты, но имеет один существенный 
недостаток: эффекты выбирает она сама, случайным образом, редактировать их в прямом смысле 
этого слова невозможно. 

Существует также пакет DZWIEKI, который мне, к сожалению, достать не удалось. 
Некоторые утверждают, что это первая версия программы SPECSOUND. 

Программа SUPER SOUND, написанная автором этой книги (её подробное описание Вы 
можете найти в следующей главе) позволяет редактировать десять различных эффектов. Среди 
них есть как тоновые, так и шумовые эффекты. Кроме того, она позволяет вводить звуковые 
фрагменты с магнитофонного входа Спектрума и воспроизводить в различных режимах. 

Все вышеперечисленные редакторы эффектов позволяют записать отредактированные 
эффекты на магнитный носитель в виде подпрограмм в кодах, которые можно использовать в 
своих программах. 

Программ, позволяющих создавать звуковые эффекты для музыкального сопроцессора, мне 
вообще не удалось обнаружить. Но это будет исправлено с выходом следующей версии SUPER 
SOUND, что ожидается довольно скоро. 

Следующая группа программ позволяет записывать и воспроизводить звуковые фрагменты 
через магнитофонный вход ZX-Spectrum. Типичным представителем является SPEAK EASY, а 
лидером - VOICE MANIPULATOR, написанный Джулианом Спенсером (Julian Spencer) в 1991 
году. 

У программ такого рода существует два недостатка: качество воспроизводимого ими звука 
посредственное и длина его ограничена несколькими десятками секунд (см. главу 3.5). 

Довольно интересны программы, позволяющие Вашему Спектруму говорить человеческим 
языком. Правда, произношение у них сильно страдает и говорят они с акцентом. Пожалуй, самой 
шепелявой из них является BASZED. Понять, что она говорит можно лишь читая произносимую 
фразу на экране. В народе её даже окрестили "базетом". Несколько более понятно говорит 
программа FONGEN (генератор фонем). Кроме того, её можно заставить говорить по-русски. 

На этом список не заканчивается. Существуют и другие такие программы: LMOWA, 
TOKER ит.д. 

Существует также, по-моему, единственный в своем роде цифровой частотомер - DIGITAL 
ЕКЕОЧЕМСЕК (ОЕК). Хотя идея и неплохая, оформлена она страшненько. 

Несколько программ позволяют посмотреть диаграммы спектра звукового сигнала, 
подаваемого Ha магнитофонный вход ZX-Spectram. Например, TAPER и TAPE DIAGNOSTICS 
могут разложить звук на частоты до 4 кГц. Программа LIGHT SHOW, написанная Жигой Турком 
(Ziga Turk) в 1984 году, позволяет анализировать звук с частотой до 16 кГц. Кроме того, в ней 
имеется цветомузыкальный режим, создающий на экране цветовые эффекты в такт музыке, 
подаваемой на магнитофонный вход. 

Следующая группа программ - музыкальные редакторы. Их существует довольно много. 
Простейшие из них, например, Menzer Synthetizer или Organ, делают из ZX-Spectram что-то вроде 
детской пищалки, в роли, клавиатуры которой выступают клавиши Спектрума. Более сложные 
программы, такие как Spectrum Musicmaker или Music Typewriter, позволяют сохранить мелодию 
на ленте, с последующей загрузкой и воспроизведением. 

Программа A.E.Drums фирмы Einstein Software специализирована на ударных 
инструментах. В неё заложено десять различных ударников и столько же готовых ритмов. 

Одним из самых мощных музыкальных редакторов является WHAM THE MUSIC BOX, 
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созданный фирмой Mark Soft в 1985 году. Он позволяет писать двухголосные мелодии с ударными 
инструментами. Его подробное описание Вы найдете в одной из следующих глав. 

Имеется подозрение, что существуют два великолепных музыкальных редактора, 
превосходящих по своим возможностям WHAM THE MUSIC BOX, но недоступных рядовому 
пользователю. Результат работы одного из них Вы можете услышать в таких программах, как 
STARWARS, GOLDEN AXE, GRAND PRIX, OPERATION WOLF. Музыку из другого мне удалось 
обнаружить только в программах фирмы Code Masters (TWIN TURBO V8, RALLY CROSS), что 
наводит Ha некоторые мысли. 

Немало существует музыкальных редакторов и для сопроцессора. Два наиболее известных - 
это WHAM THE MUSIC BOX 128K и ASC Sound Master (ASM). Первый написан той же фирмой 
Mark Soft, a второй - Андреем Сендетским из Днепропетровска (фирма Andrew Strikes Code). Хотя, 
WHAM 128K один из лучших музыкальных редакторов для сопроцессора, до ASM ему еще 
далеко. Описание ASM Вы можете найти в электронном журнале SPECTROFON № 2. 

Пожалуй, последней группой звуковых программ являются музыкальные 
демонстрационные программы для сопроцессора. Их можно разделить на две подгруппы. Первая - 
музыкальные сборники, а вторая - динамические шоу. 

Типичными представителями первой подгруппы являются, например, МАМНАТТАМ или 
ТОР 128. Эти программы не очень интересны, но являются крупными библиотеками мелодий. 

Из второй подгруппы можно выделить две наиболее красивые программы. Это $НОСК и 
THE LYRA П польской фирмы ETHANOL SOFT INC. В каждой из них содержится по несколько 
частей (8 и 9 соответственно) с прекрасной графикой и музыкой. 

Данный обзор не претендует на полноту, но я постарался охватить максимальное 
количество видов программ. 


7.1. Редактор звуковых эффектов SUPER SOUND. 


Программа SUPER SOUND у2.2 позволяет выбрать и настроить под собственные нужды 
один из одиннадцати различных звуковых эффектов с последующей выгрузкой на диск или ленту, 
в зависимости от версии. Все файлы, выгруженные SUPER SOUND'om являются полностью 
перемещаемыми, законченными подпрограммами в машинных кодах, и могут вызываться как из 
бейсика, так и на ассемблере. 

SUPER SOUND работает на всех типах Спектрум-совместимых компьютеров и в 
музыкальном сопроцессоре (АУ-3-8912) не нуждается. 

Программа управляется с помощью курсора и меню. Выбор функций осуществляется 
наведением курсора на соответствующий пункт в текущем окне и нажатием кнопки "огонь". Для 
управления курсором можно использовать Кемпстон джойстик, Синклер джойстик или 
клавиатуру (клавиши О, Р, О, А и SPACE - влево, вправо, вверх, вниз и огонь соответственно). Все 
устройства управления активны одновременно. 

Главное меню содержит двенадцать пунктов. Первые одиннадцать - различные эффекты, а 
последний (Info) - информация о программе, дате её создания и авторе. 


7.1.1. Эффекты. 


Опишу все эффекты по очереди. При выборе любого из них перед Вами раскроется окно с 
текущими параметрами данного эффекта и несколькими служебными функциями. В каждом из 
одиннадцати окон существуют три общие функции: Маш Menu - возврат в главное меню, Play - 
воспроизведение эффекта и Зауе - запись настроенного эффекта на магнитный носитель. 
Остальные функции изменяются от эффекта к эффекту. 

Input Sound - ввод звука. Этот пункт главного меню позволяет вводить в память звуковые 
фрагменты, подаваемые на магнитофонный вход компьютера и воспроизводить их с различной 
скоростью. В окне этого эффекта кроме трех стандартных функций существует несколько 
собственных: Input Speed:XX -скорость ввода. Чем меньше данный параметр, тем лучше качество 
вводимого звука, тем больше он занимает памяти и тем в меньшее число раз его можно ускорить. 
Если Вам необходимо максимальное качество, то скорость ввода должна быть равна 0, но тогда 
то, что Вы ввели можно будет воспроизводить либо с реальной скоростью, либо замедлить. Play 
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Speed:XX - скорость воспроизведения. Если параметр этого пункта равен параметру Input Speed, 
то звуковой фрагмент воспроизводится с реальной скоростью, если он меньше, то звук ускоряется, 
если же он больше - звук замедляется. Length:XXXXX - длина звукового фрагмента. Reverse - 
обратное воспроизведение. Этот пункт позволяет "переворачивать" Ваш звуковой фрагмент с ног 
на голову, то есть воспроизводить его с конца на начало. Когда напротив этого пункта установлена 
галочка, данный режим включен. Input - ввод звука. При выборе этого пункта сразу же начинается 
запись звука в память. Поэтому, перед тем, как это сделать, проверьте Ваш магнитофон и шнуры, 
соединяющие его с компьютером. 

Double Beep - двойной ВЕЕР. Название этого пункта говорит само за себя - это аналог 
оператора бейсика BEEP, но воспроизводящий две частоты одновременно. Frequency 1:ХХХ и 
Frequency 2:ХХХ - соответственно первая и вторая частоты. Duration:XXX - длительность 
эффекта. Пункты Main Menu, Play и Save описаны выше. 

Exploding I - имитатор взрыва 1. Этот эффект представляет собой шум с плавно 
изменяющейся частотой. Кроме трёх стандартных функций в этом окне вы встретите следующие: 
Егедаепсу: ХХХ - начальная частота эффекта. Duration:XXX - длительность звучания одной 
ступени частоты. Length:XXX -длина эффекта. Group:XX - этот параметр влияет на звук 
незначительно. Его значение определяет адрес ПЗУ, из которого берутся данные для генерации 
шума. Increase - если Вы выберете этот пункт, TO он сменит свое название на Decrease 
(уменьшение). Если же Вам этого покажется мало, и Вы опять остановите свой выбор на этом 
пункте, то он вновь превратится в Increase (увеличение). Этот пункт определяет направление 
смещения частоты шума. 

Exploding 2 - имитатор взрыва 2. Этот эффект похож на предыдущий, но моменты 
изменения частоты заметны гораздо больше. При редактировании этого эффекта у Вас может 
вызвать затруднение только пункт Length:XXX - это длина всего эффекта. Остальные 
(Frequency:XXX, Increase, Main Menu, Play и Save) полностью аналогичны таким же, описанным 
выше. 

Volume FX - громкостный эффект. Это одна из основных достопримечательностей 
программы SUPER SOUND. Данный пункт главного меню позволяет создавать эффекты с 
различной громкостью и даже с изменением её в течение воспроизведения. Пункты Frequency: 
XXX, Duration:XXX и Length:XXX полностью аналогичны таким же в Exploding 1. Пункт 
Volume:XX устанавливает начальную громкость эффекта. 

Следующие три пункта следует объяснить поподробнее. Это: FQ:Increase, DR: Increase и 
VL:Decrease. Эти пункты определяют изменение частоты, длительности и громкости, 
соответственно. Они могут принимать значения Increase, Decrease и No change (увеличение, 
уменьшение и неизменение). Обратите внимание, что из-за организации этого эффекта, если Вы 
установите изменение громкости, то это необходимо компенсировать изменением частоты в 
противоположную сторону. Иначе эта частота будет смещаться. Последние три пункта этого 
эффекта стандартны (см. выше). 

Flowing 1 - плавный эффект 1. Этот эффект представляет собой тон с плавно изменяющейся 
частотой. Все пункты в этом окне аналогичны таким же в Exploding 1, поэтому приведу только их 
список, без описания: Егедаепсу: ХХХ, Duration:XXX, Length:X XX, Increase (Decrease), Main Menu, 
Play u Save. 

Flowing 2 - плавный эффект 2. Этот эффект более изощрён, чем предыдущий. Частота тона 
в конкретный момент времени складывается из двух составляющих, которые могут изменяться 
независимо друг от друга. В меню эти составляющие названы Frequency I :ХХХ и Frequency 
2:ХХХ, а способы их изменения Е!:стоде> и F2:<mode>, где <mode> может принимать значения 
Increase, Decrease и No change (см. выше). Пункт Duration:XXX полностью похож на такой же в 
Exploding I, a Main Menu, Play и Save - стандартны. 

Cycle 1 - цикловой эффект 1. Этот и следующий эффекты основаны Ha подпрограмме BEEP 
из ПЗУ ZX-Spectram. Cycle 1 очень похож по свойствам Ha Flowing 1, но тембр его звучания 
значительно отличается. Пункты Frequency:XXXX, Duration:XXXX, Increase (Decrease), Main 
Menu, Play и Save аналогичны таким же BO Flowing 1. Пункт Quantity:XXX - определяет 
количество проходов цикла. Он похож на параметр Length:XXX предыдущих эффектов. 
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Последний неизвестный пункт - Ѕіер:ХХХ. Он определяет шаг изменения частоты. 

Cycle 2 - цикловой эффект 2. Or Cycle 1 этот эффект отличается только тем, что изменение 
частоты ограничено и при переходе определенного порога её значение становится близким к 
начальному, что позволяет создавать довольно интересные варианты. Все пункты этого эффекта 
полностью аналогичны таким же в Cycle 1. 

Noise I - шум 1. Этот эффект представляет собой обыкновенный шум. Пункты 
Егедиепсу: ХХХ, Length:XXXX, Group:XX, Маш Menu, Play и Save аналогичны таким же в 
Exploding 1. Bounds - скачки. Если этот пункт отмечен галочкой, то шум становится как бы 
прыгающим. 

Noise 2 - шум 2. Это шумовой аналог Flowing 2, поэтому описания всех пунктов этого 
эффекта Вы можете найти в Flowing 2. Исключение составляет только Group:XX, его описание 
находится в Exploding 1. 


7.1.2. Использование эффектов. 


Теперь немного об использовании выгруженных эффектов. Любой из них можно загрузить 
в память, набрав с клавиатуры 
LOAD "name" CODE addr для ленты и 
RANDOMIZE USR 15619: REM: LOAD "name" CODE addr для диска 

- где name - имя файла Ha ленте или диске, a addr - адрес в который необходимо загрузить 


эффект. Чтобы запустить загруженный эффект, введите 
RANDOMIZE USR addr. 


Обратите внимание, что файлы, записанные из окна Input Sound, kak правило, очень велики 
по размерам, поэтому, при их загрузке следите, чтобы они не перекрыли системные области ОЗУ. 


7.1.3. Версии. 


Существует несколько различных версий SUPER SOUNDa: 
1.0 - Это пробная версия. Она страдает практически всеми недостатками, которые можно 
представить и лучше её никому не видеть. 
2.0 - Программа значительно улучшена. Она содержит динамическую заставку. Эта версия 
послужила основой для всех последующих. 
2.1 - Удалена заставка, добавлен контроль диапазона в Cycle | и новый эффект - Volume ЕХ. 
2.2 - Улучшен дизайн, исправлены мелкие ошибки в подпрограммах воспроизведения. 
Планируется выход версии 3.0, которая будет на порядок превосходить своих 
предшественниц. Предполагается расширить возможности Information, Input Sound и Double Веер, 
добавить компилятор и возможность создания эффектов для сопроцессора, несколько новых 
эффектов и полезных функций. 
Версия 1.0 существует только в кассетном исполнении. Версии 2.0 и 2.1 - как в кассетном, 
так и в дисковом. Версия 2.2 - только в дисковом. Версия 3.0 будет рассчитана Ha Spectrum 128K и 
на компьютерах с меньшим объёмом памяти некоторые функции работать не будут. 


7.2. Музыкальный редактор Wham the Music Box. 


Wham the Music Box ("музыкальная шкатулка") - пожалуй, самый богатый по своим 
возможностям музыкальный редактор для ZX-Spectram. С его помощью Вы сможете создавать 
двухголосые мелодии с использованием барабана и шумовых эффектов. Созданный музыкальный 
фрагмент можно сохранить на ленте или дискете и, при необходимости, загрузить его снова и 
внести изменения. Большим достоинством редактора является то, что мелодии, написанные с его 
помощью, можно использовать для оформления других программ. 

После загрузки Wham'a звучит мелодия, а на экране появляется главное меню (MAIN 
МЕМО). Для выбора какого-либо режима нажмите соответствующую цифровую клавишу: 

1. LOAD TUNE - загрузка мелодии 
2. ЗАУЕТОМЕ - сохранение мелодии 
3. НЕАК ТОМЕ - прослушивание мелодии 
4. МНАМРПЕЕ - компиляция 
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5. ЗЕТ TEMPO - установка темпа 
6. EDITMODE - режим редактирования 
7. HELP PAGE - подсказка 


7.2.1. LOAD TUNE - загрузка мелодии. 


Этот режим позволяет загрузить файл, содержащий ранее созданную мелодию, в редактор 
для дальнейшей работы с ним. После перехода в режим LOAD ТОМЕ (клавиша 1) программа 
спросит, с какого устройства Вы хотите загружать файл: 

SELECT PERIFERAL DEVICE 

TAPE MEMORY DRIVE (SPACE=EXIT) 

Если Вы решили отказаться OT своей затеи, то нажмите пробел. В противном случае - 
выбирайте устройство с помощью одной из клавиш: Т - кассета, М - оперативная память, D - 
микродрайв. 

При загрузке с кассеты на запрос "FILENAME ?" введите имя файла, в котором хранится 
мелодия. 

Вместе с Wham'om на кассете (дискете) поставляется файл EXAMPLE, в котором 
содержится весёлая мелодия. Попробуйте его загрузить и прослушать (см. дальше). 

Так как в России микродрайв не прижился, а вместо него прижился дисковод, возникает 
законное желание заменить надпись DRIVE на DISK, со всеми вытекающими отсюда 
последствиями. Это было довольно успешно сделано несколькими российскими программистами 
(существует также версия программы на русском языке). Самый распространенный дисковый 
вариант перед запросом "FILENAME ?" (см. выше) спрашивает не распечатать ли ему каталог 
диска "А" (Да/Нет): 

PRINT CATALOGUE 'А:' (Y/N) 2 
A затем загрузка идёт стандартным образом. 

Если Вы обратитесь к оперативной памяти (клавиша М), то на экране появится список из 
шести мелодий: 


1. FREEDOM 

2. TROPICANA 
3. YOUNG GUNS 
4. WHISPER 

5. BAD BOYS 

6. 


Первые пять из них созданы авторами программы, a шестая зарезервирована для Ваших творений. 
Для загрузки любой из них достаточно нажать соответствующую цифровую клавищу. 
По окончании загрузки программа автоматически переходит в режим MAIN MENU. 


7.2.2. SAVE TUNE - сохранение мелодии. 


Благодаря этому режиму Ваш труд не пропадёт даром, когда Вам придётся надолго 
оторваться от составления мелодии, то есть созданный музыкальный фрагмент можно будет 
сохранить на ленте или диске для дальнейшего усовершенствования. 

Войти в режим ЗАУЕ ТОМЕ можно из главного меню, нажав клавишу 2, после чего 
появится уже знакомый вопрос об устройстве, на которое Вы желаете записать свое произведение: 

SELECT PERIFERAL DEVICE 

TAPE MEMORY DRIVE (SPACE=EXIT) 

Как и раньше, нажав пробел, Вы вернетесь в главное меню, а выбрав устройство: Т - 
кассета, М - память и О - микродрайв (дискета), получите запрос "FILENAME ?", на который надо 
ввести имя файла, в котором будет сохранена мелодия. 

Если Вы решили записать свой музыкальный фрагмент в оперативную память, перед Вами 
появится список из шести мелодий. Ваше произведение можно записать на место любой из них, но 
храниться оно будет только до выключения питания или нажатия кнопки сброса. 

В случае записи на кассету, после её завершения появится вопрос: VERIFY (Y/N). Если Вы 
уверены в качестве записи, то можете жать клавишу "М", в противном случае нажмите "У", 
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перемотайте ленту на начало только что записанного файла и включите воспроизведение для его 
проверки. 
По окончании записи программа автоматически переходит в режим MAIN MENU. 


7.2.3. EDIT MODE - режим редактирования. 


Режим редактирования - это основной инструмент, с помощью которого Вы сможете 
реализовать свои музыкальные идеи. 

Войти в этот режим можно из главного меню, нажав клавишу 6. При этом на экране 
появятся изображения двух нотных станов (для басового и скрипичного ключей), а также 
указатель октавы OCTAVE, указатель текущего канала (голоса) CHANNEL 1 (2) и счётчики шагов 
для каждого из каналов COUNTERS (СНМ!, CHN2). 

Для выбора функций редактора используются два верхних ряда клавиш, а нижние два - 
заменяют собой клавиатуру фортепиано. Значения этих клавиш Вы можете увидеть на рис. 5. Ряд 
от Caps Shift до Space играет роль белых клавиш, а от А до L - черных. 


н : : ыы УП ИТЬ м УТ иг 
ВЫБОР ОКТАВЫ БОРДЮР үт ынын a НАЗАД иа 
aie METKA B HAM "ЈЕ 
шш ин ` БАРАБАНМЕЛОДИН eee ШУМОВЫЕ ЭФФЕКТЫ ҮН ТЕР Е 
ЕНТЕР 
= РЕФ fit le ЛЯ PEt | ПАУЗА 
CAPS ЎВО. SPACE 
ant 
PE MH СОЛЬ CH т МИ 


——o ТЕКУЩАЯ ОКТАВА — | СЛЕДУЮЩАЯ ОКТАВА —! 


Рис. 5 ФУНКЦИИ клавиш в РЕЖИМЕ РЕДАКТИРОВАНИЯ. 


Итак, Вы хотите "набросать" какую-нибудь мелодию. Нажимая клавишу Т, выберите голос, 
с которым собираетесь работать, клавишами 1...4 - октаву (1 -большая, 2 - малая, 3 - первая, 4 - 
вторая) и попробуйте "наиграть" мелодию на "звуковых" клавишах. При этом на нотном стане 
появятся изображения нот, а цветные квадратики укажут соответствующие клавиши фортепиано 
(для первого голоса квадратик красный, для второго - фиолетовый). Если Вы ошибочно нажали не 
ту клавишу, не расстраивайтесь, все поправимо: нажав клавишу 0, Вы вернетесь на один шаг 
назад. Если же нужно вернуться больше, чем на шаг, нажмите 9. 

Проигрывание одной ноты с продвижением на шаг вперед осуществляется клавишей Р. 
Удерживая эту клавишу Вы можете прослушать часть мелодии. С помощью клавиши О можно 
"перемотать" мелодию вперёд. 

Вам наверняка захочется прослушать музыкальный фрагмент целиком, не выходя из 
режима редактирования. Нажмите К (возврат в начало мелодии), затем О (проигрывание 
мелодии), - и зазвучит Ваше творение. Остановить воспроизведение можно нажатием любой 
клавиши. 

Для написания второго голоса переключите клавишей Т канал и с помощью клавиш К, О, Р, 
0, 9 перейдите к тому шагу, с которого Вы собираетесь его использовать. 

К сожалению, Wham не даёт возможности записать мелодию нотами разной длительности. 
Необходимая длительность достигается либо использованием паузы (клавиша Enter), либо 
записью нужного количества одинаковых нот. 

Ваш музыкальный фрагмент зазвучит совсем по другому, если Вы используете для его 
аранжировки барабан (клавиша Е) и шумовые эффекты (клавиши У, U, Г). Барабан может звучать 
по разному, в зависимости от того, в каком канале он установлен. В первом канале это 
действительно барабан, а во втором он больше похож на ноту СИ контроктавы или ДО большой 
октавы. Шумовые эффекты можно редактировать с помощью соответствующего режима, в 
который можно попасть из EDIT МОРЕ, нажав клавишу 8. После этого на экране появится меню 
выбора частоты (WAVEFORM) и длительности (DURATION) шумовых эффектов. Выбрать один 
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из предоставляемых программой 16 вариантов длительности и 8 вариантов частоты (формы 
колебаний) шумовых эффектов можно с помощью следующих клавиш: 


5,8 - Выбор редактируемого шумового эффекта; 
6 - Переход к функции выбора частоты; 

7 - Переход к функции выбора длительности; 
0 - Изменение эффекта. 


Получающиеся в процессе редактирования шумовые эффекты можно прослушать, 
используя клавишу 9. 

После настройки эффектов можно выйти обратно в режим редактирования мелодии (любая 
клавиша, кроме участвующих в настройке эффектов) и использовать их в работе с помощью 
клавиш Ү, О и І. Хотя под шумовые эффекты отведены только эти три клавиши, Вы можете 
использовать гораздо большее их количество (до 128). Для этого создаются первые три эффекта и 
расставляются в нужных местах мелодии, затем следующие три ит. д. 

Наличие барабана и шумовых эффектов в мелодии отображается на нотном стане в виде 
пробела, что очень неудобно. Учтите, что одновременно с барабаном и шумовыми эффектами не 
может звучать нота (исключение составляет только барабан, установленный во втором канале). 

Если Вы хотите, чтобы мелодия повторялась с какого-либо шага, то есть звучала 
непрерывно, клавишей № установите на выбранном шаге метку цикла в обоих каналах. При этом 
компьютер спросит: 

ЗЕТ ГООР НЕВЕ ? (У/М) - установить метку здесь ? (Да/Нет) 

Расположение меток в первом и втором каналах может и не совпадать. Но для того, чтобы 
при циклическом проигрывании мелодии не нарушалась синхронность звучания голосов, 
количества шагов в первом и втором каналах должны быть кратны друг-другу. Для успешной 
компиляции (см. ниже) установка метки в обоих каналах обязательна. 

Если Вы хотите очистить память от неудачного произведения, нажмите 7 и подтвердите 
запрос: 

ERASE CURRENT ТОМЕ ? (Y/N) - удалить мелодию ? (Да/Нет) 

С помощью клавиши 5 можно изменять цвет бордюра. А чтобы вернуться в главное меню, 
нажмите клавишу 6. 


7.2.4. НЕГР РАСЕ - подсказка. 


В режиме редактирования Вам понадобится использовать немалое количество клавиш, 
сразу запомнить их функциональное назначение не так просто. Поэтому в качестве помощи Вам 
предлагается страница подсказки - НЕГР РАСЕ, которую можно вызвать из главного меню, нажав 
клавишу 7. 


На экране появится список клавиш, используемых при редактировании: 
KEYS FUNCTION 


1-4 SELECT OCTAVE выбор октавы 

5 CHANGE BORDER изменение цвета бордюра 

6 MAIN MENU выход в главное меню 

7 ERASE ТОМЕ удаление мелодии 

8 NOISE MIXING редактирование шумовых эффектов 
9 REPEAT BACKSTEP прокрутка назад 

О SINGLE BACKSTEP возврат Ha один шаг 

Q REPLAY TUNE проигрывание мелодии 

Е DRUM EFFECT барабан 

Т CHANGE CHANNEL выбор канала 

Y,U&I NOISE EFFECTS шумовые эффекты 

О FAST FORWARD прокрутка вперед 

Р PLAY NEXT NOTE проигрывание следующей ноты 
The lower half of the keyboard Нижняя половина клавиатуры 

mimics a piano, enter is а rest имитирует фортепиано, enter - пауза 
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Use cursor keys to edit the Используйте курсорные клавиши для 
white noise with 9 to hear the редактирования белого шума, current 
effect and 0 to alter it 9 прослушивание, 0 - изменение 


7.2.5. НЕАВ ТОМЕ - прослушивание мелодии. 


При прослушивании мелодии в режиме EDIT MODE, она звучит в несколько искаженном 
виде, так как процессор кроме воспроизведения музыки занят ещё и выводом на экран нот, 
обслуживанием клавиатуры и т. д. Чтобы получить представление об истинном звучании мелодии, 
то есть услышать, как она будет исполняться после компиляции (см. ниже), воспользуйтесь 
функцией HEAR ТОМЕ (клавиша 3 главного меню). 

После прослушивания, нажав любую клавишу, Вы попадаете в режим EDIT MODE. 


7.2.6. 5ЕТ ТЕМРО - установка темпа. 


Если после прослушивания мелодии Вы захотите изменить темп её исполнения, 
воспользуйтесь режимом ЗЕТ ТЕМРО (клавиша 5 главного меню). 

Клавишей 8 можно ускорить темп исполнения мелодии, а клавишей 5 - замедлить. 
Изменение темпа изображается наглядно, с помощью фиолетовой полоски на экране. С 
уменьшением темпа, полоска тоже уменьшается и наоборот. 

Нажав любую клавишу, кроме 5 и 8, Вы попадёте в режим редактирования (EDIT MODE). 


7.2.7. WHAMPILER - компиляция. 


Музыкальный фрагмент, сохраненный в виде редактируемого файла в режиме ЗАУЕ 
TUNE, можно загрузить снова (LOAD TUNE) и продолжить работу с ним. Однако, такой способ 
представления мелодии позволяет прослушивать её только находясь в редакторе. 

Если же Вы хотите оформить музыкой программу, написанную на бейсике или ассемблере, 
необходимо записать мелодию в виде программы, работающей независимо от редактора. Такая 
подпрограмма создаётся с помощью режима компиляции WHAMPILER. 

В результате компиляции на ленту или дискету записывается файл, который представляет 
собой программу в кодах, запускаемую отдельно от Wham'a, но, в отличие от редактируемого 
файла, не поддающуюся дальнейшему изменению. 

Перед компиляцией с помощью функции LOAD ТОМЕ загрузите мелодию, которую 
хотели-бы скомпилировать и проверьте, в обоих ли каналах выставлены метки цикла. 

В качестве примера попробуем откомпилировать одну из 5 мелодий, загружаемых из 
памяти (см. LOAD TUNE - MEMORY), допустим, тему под номером | - FREEDOM. Загрузите её 
и, нажав клавишу 4, войдите в режим компиляции. На запрос ТОМЕМАМЕ ? введите имя, под 
которым Вы хотите сохранить откомпилированный файл, например, FREE-MUS. Далее программа 
попросит ввести адрес, с которого будет располагаться и запускаться откомпилированный файл: 

ASSEMBLY ADDRESS ? 

Укажите десятичный адрес He менее 32768, например, 60000, после чего компилятор 
выведет на экран следующую информацию: 


ТОМЕ МАМЕ: FREE-MUS имя мелодии 
ASSEMBLY ADDRESS: 60000 адрес 
RETURN OPTION: KEYPRESS условие возврата 

WHITE NOISE: --МОМЕ-- шумовые эффекты отсутствуют 
CHANNEL 1 LENGTH: 313 число шагов в 1-ом канале 
CHANNEL 1 LOOP START цикл от начала в 1-ом канале 
CHANNEL 2 LENGTH: 313 число шагов BO 2-ом канале 
CHANNEL 2 LOOP START цикл от начала BO 2-ом канале 


1. KEYPRESS 
2. ALWAYS 
3. TUNEEND 
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RETURN OPTION 1, 2 OR 3 ? 


Цифрами 1, 2 и 3 обозначены условия окончания воспроизведения мелодии. В зависимости 
от выбранного варианта получаются определенные модификации откомпилированного файла: 

KEYPRESS - проигрывание мелодии завершается при нажатии любой клавиши; 

ALWAYS - проигрывание мелодии осуществляется одновременно с работой программы 
(подробно этот режим описан ниже); 

TUNEEND - проигрывание завершается либо по окончании мелодии, либо при нажатии 
любой клавиши. 

Запуск компиляции произойдет сразу после выбора клавишами 1, 2 или 3 одного из 
перечисленных условий. Нажмите, к примеру, клавишу 1. 

По окончании компиляции на экран будет выведена длина исполняемого файла в байтах и 
сообщение о нормальном завершении операции: 

CODE LENGTH: 893 

ROUTINE COMPILATION COMPLETED OK 

Затем, после надписи ADJUSTMENT POKES: (настроечные POKE), появится информация, 
необходимая для настройки исполняемого файла уже в процессе использования его в Вашей 
программе (помните, что в нашем примере ASSEMBLY ADDRESS равен 60000): 

REPLAY SPEED: 60035, (230 ТО 255) 
> этой надписью программа сообщает, что, записывая в ячейку памяти с адресом 60035 

(ASSEMBLY ADDRESS + 35) число от 230 до 255, можно изменять темп исполнения мелодии; 

BORDER COLOR: 60026, (0 ТО 7) 

> это сообщение говорит о том, что, записывая в ячейку памяти 60026 (ASSEMBLY ADDRESS + 
26) число от 0 до 7, Вы можете на время исполнения мелодии устанавливать требуемый цвет 
бордюра (по умолчанию - фиолетовый); 

TO RUN - RANDOMIZE USR 60000 
> эта надпись напоминает, что для запуска мелодии из бейсика необходимо использовать 

команду RANDOMIZE USR 60000 (ASSEMBLY ADDRESS). 

После вывода этих сообщений производится запись исполняемого файла Ha KacceTy или 
диск, в зависимости от версии. 

Теперь можно смело жать кнопку сброса и загружать в память, полученную после 
компиляции программу в кодах. Если исполняемый файл сохранен на ленте, то для его загрузки и 
запуска напишите следующую программу на бейсике: 

10 LOAD "FREE-MUS" CODE 

20 POKE 60026,7: REM цвет бордюра - белый 

30 RANDOMIZE USR 60000 

Запустите её и загрузите мелодию, а затем Вы услышите скомпилированную мелодию, 
которая будет звучать, пока Вы не нажмете какую-нибудь клавишу. Поэкспериментируйте с 
темпом исполнения произведения, заноса с помощью оператора POKE различные числа в 
пределах от 230 до 255 в ячейку 60035. 

Для дисковой версии первую строку программы нужно заменить на следующую: 

10 RANDOMIZE USR 15619: REM: LOAD "FREE-MUS" CODE 

Теперь Вы сможете откомпилировать любую мелодию (в TOM числе и свою собственную), 
выполняя аналогичные действия. 

Процесс компиляции может проходить несколько иначе. Например, если Вы решили 
сделать повторяющуюся басовую партию и зациклили её гораздо раньше основной мелодии 
(проследите, чтобы число шагов в обоих каналах было кратно друг-другу). В этом случае 
программа исключает возможность компиляции в режиме TUNEPEND и устанавливает режим 
KEYPRESS, а вместо возможности выбора спрашивает: 

CHANGE RETURN OPTION ТО ALWAYS ? 

сменить режим компиляции Ha ALWAYS ? 

Если Вы нажмете клавишу Y, режим будет cMeHeH. В противном случае компиляция 


продолжится в режиме KEYPRESS. 
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Учтите, что компилятор выдает число шагов в канале вместе с меткой цикла. Поэтому Вы 
можете обнаружить, что, например, 65 кратно 9 (на самом деле - 64 и 8). 

Если в Вашей мелодии число шагов в обоих голосах не кратно друг-другу, то компиляция 
прервется следующим сообщением: 


WARNING ПРЕДУПРЕЖДЕНИЕ 

End markers mismatch He совпадают метки 
цикла. may cause distorted tune Может исказиться мелодия. 
Continue ? (Y/N) Продолжить ? (Да/Нет) 


Если Вы нажмете Ү, то компиляция продолжится как если бы число шагов было кратно 
друг-другу, но за то, что получится, никто ответственности не несёт. В противном случае 
компиляция прервётся и Вы окажетесь в главном меню. 

Если же Вы вообще забыли поставить метку цикла хотя бы в одном из каналов, то Вашему 
взору предстанет следующая картина: 


ТОМЕ МАМЕ: ХХХХХХХХХХ 
ASSEMBLY ADDRESS: ХХХХХ 
RETURN OPTION: KEYPRESS 
WHITE NOISE: XXXXXXXX 
CHANNEL 1 LENGTH: NOT PRESENT 
число шагов в первом канал н определено 
CHANNEL 1 LOOP : START 
CHANNEL 2 LENGTH: NOT PRESENT 
число шагов BO втором канале HE определено 


CHANNEL 2 LOOP : START 

Tune compilation abandoned. Компиляция прервана. 

No end markers defined. He установлены метки цикла. 
Use the М key to place the end Используя клавишу W установите 
marker for the current channel. MeTKY в каждом канале. 


Если машина обругала Вас отнеситесь к этому спокойно. Нажав клавишу Enter, выйдите из 
режима компиляции, устраните замеченные недостатки и, будьте уверены, что со второй, в 
крайнем случае с третьей попытки мелодия будет откомпилирована, и Вы сможете украсить ею 
свою программу. Скорее всего, Вы захотите, чтобы Ваша программа работала одновременно с 
проигрыванием мелодии. Подобного эффекта можно добиться, если при компиляции использовать 
режим ALWAYS. Файл, скомпилированный в этом режиме вызывается по двум адресам: имеет 
две точки входа. Первая служит для инициализации мелодии и проигрывания первой ноты и 
расположена по тому же адресу, что и в других режимах (ASSEMBLY ADDRESS), а вторая - 
проигрывания всех последующих нот (расположена по адресу ASSEMBLY ADDRESS + 12). 

Таким образом, если в приведённом выше примере компиляции использовать режим 
ALWAYS, то для инициализации мелодии и проигрывания первой ноты нужно выполнить 
оператор 

RANDOMIZE USR 60000, 

a для проигрывания каждой последующей ноты - оператор 

RANDOMIZE USR 60012. 

Вот пример программы, демонстрирующей возможности режима ALWAYS: 
10 PAPER 0: BORDER 0: INK 7: BRIGHT 1: CLS 

20 LOAD "FREE-MUS" CODE: CLS: OVER 1 

30 LET AS="ALWAYS-mode demonstration!" 

40 RANDOMIZE USR 60000 

50 PRINT AT 10,3; 

60 FOR A= 1 TO LEN A$: RANDOMIZE USR 60012 

70 PRINT INK RND*6+1; А5(А); 

80 NEXT A: GOTO 50 
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Аналогичным образом Вы можете оформлять и программы в машинных кодах. Учтите, что 
время выполнения Вашей программы в промежутках между нотами не должно быть очень 
большим, иначе теряется качество мелодии. Кроме того, оно должно быть примерно одинаковым 
между двумя любыми нотами. 


7.2.8. Советы. 


1. Если программа вышла в бейсик с сообщением об ошибке (например, при загрузке с 
магнитофона или если Вы совершенно случайно нажали клавишу ВКЕАК), то для возвращения 
в главное меню, введите команду КОМ. 

2. Если Вы решили создать более менее длинную мелодию, используя оба голоса, то вводить эти 
голоса следует параллельно, иначе неизбежны ошибки. Кроме того, желательно время от 
времени прослушивать, что у Вас получилось. 

3. Все сочиненные Вами мелодии стоит сохранять на одной кассете (или дискете) с помощью 
функции SAVE ТОМЕ. Благодаря этому через некоторое время у Вас будет довольно большой 
выбор мелодий, при оформлении новой программы. 
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Приложение 1. 


Листинги звуковых эффектов SUPER SOUNDa. 


Все эффекты, приведены точно в таком виде, как в SUPER SOUND v2.2 и снабжены 
комментариями. Метки, начинающиеся с символов "+", "*", ":" и "?" являются специальными и 
отмечают изменяемые значения: 

+ - однобайтовое изменяемое значение 

* - два однобайтовых изменяемых значения 

: - двухбайтовое изменяемое значение 

2 - изменяемая команда 
Слово, следующее за специальным символом повторяет название пункта в программе, 
отвечающего за данный параметр (возможно в сокращенном виде). В случае изменяемой команды 
в комментарии (в скобках) указаны все возможные варианты. Для нормальной компиляции 
специальные метки необходимо удалить или переименовать. 


Input Sound: 
10 DI ; запрет прерываний 
20 LD HL, 37000 ; НІ=адрес сохранения звука 
30 : LENGTH LD DE, 27000 ; ОЕ=длительность звука 
40 ТООР1 LD B,8 ; В=счетчик битов 
50 LOOP2 SLA (HL) ; скроллинг значения в памяти 
60 ТМ А, (254) ; ввести значение из порта 254 
70 BIT 6,A ; проверить бит магнитофона 
80 JR Z,+INPUT_ SPD ; если 0, то перейти Ha NOSIGN 
90 SET 0, (HL) ; установить бит DO в памяти 
100 +ІМРОТ SPD LD СЗ ; С=задержка 
110 PAUSE DEC G ; С=С-1 
120 JR NZ, PAUSE ; если C<>0, то цикл 
130 РОМА LOOP2 ; продолжить цикл обработки байта 
140 INC HL ; HL=HL+1 
150 DEC DE ; DE=DE-1 
160 LD A,D ; DE= 
170 OR E gona 
180 JR NZ, LOOP1 ; если нет, то цикл 
190 ЕТ ; разрешение прерываний 
200 КЕТ ; возврат 
Play Sound 
10 CALL 124 ; по адресу 124 находится RET 
20 DEC SP ; поднять указатель стека 
30 DEC SP ; на два байта 
40 POP HL ; снять со стека адрес строки 20 
50 LD DE, 47 ; РЕ=число байт от строки 20 до буфера 
60 ADD HL, DE ; НІ=адрес буфера 
70 :ЪЕМСТН LD DE, 27000 ; ОЕ=длительность звука 
80 ?REVERSE МОР ; резерв для REVERSE (ADD HL, DE) 
90 DI ; запрет прерываний 
100 LD A, (23624) ; A= 
110 RRA ; цвет 
120 ККА ; бор- 
130 КВА ; дюра 
140 LOOP3 LD B,8 ; В=счетчик битов 
150 LOOP4 AND 239 сброс бита D4 peructpa A 
160 RLC (HL) скроллинг данных через флаг CY 
170 JR МС, NOSGN если флаг CY=0, To перейти Ha NOSGN 
180 OR 16 установка бита D4 peructpa A 
190 NOSGN OUT (254),A вывод A в порт 254 
200 +PLAY SPD LD €73 С=задержка 
210 PAUS2 DEC С С=С-1 
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220 
230 


240 ?REVERSE 


250 
260 
270 
280 
290 
300 
310 
320 


10 


20 *ЕРО1,ЕВО2 
30 +DURATION 


40 
50 
60 
70 
80 
90 
100 
110 
120 
130 ВЕЕР 
140 
150 
160 
170 
180 CONT 
190 
200 
210 
220 
230 
240 CONT2 
250 
260 
270 
280 
290 
300 


10 :GROUP 
20 
30 
40 
50 
60 
70 *FRQ,LI 


F 


EN 


80 LOOP1 


90 +DURATION 


100 LOOP2 
110 
120 
130 
140 
150 
160 
170 
180 


LOOP3 


JR NZ, PAUS2 
DJNZ LOOP4 
ІМС HL 

LD C,A 

DEC DE 

LD A,D 

OR E 

LD А,С 

JR NZ, LOOP3 
EI 

RET 

DI 

LD DE, 13000 
LD H, 100 

LD A, (23624) 
RRA 

RRA 

RRA 

LD C,A 

EX AF,AF! 
LD A,C 

LD C,E 

LD B,D 

EX AF,AF' 
DEC С 

JR NZ, CONT 
LD С,Е 

XOR 16 

OUT (254),A 
EX AF,AF! 
DEC B 

JR NZ, СОМТ2 
LD B,D 

XOR 16 

OUT (254),A 
ІМС 1 

ЈЕ NZ, BEEP 
DEC H 

ЈЕ NZ, BEEP 
EI 

RET 

LD HL, 0 

LD A, (23624) 
RRA 

RRA 

RRA 

LD D,A 

iD BC, 38401 
PUSH BC 

LD B,20 

LD A, (HL) 
AND 248 

OR D 

OUT (254),A 
PUSH BC 

LD B,C 

DINZ LOOP3 
INC HL 

POP BC 


если C<>0, 
продолжить цикл 
=HL+1 (DEC HL) 
охранение А 
=DE-1 


TO цикл 


восстановление A 

если DE<>0, To цикл 
разрешение прерываний 
возврат 


Double Веер 


запрет прерываний 
Е=частота 1, Р=частота 2 
Н=длительность 
А= 
цвет 

бор- 

дюра 
сохранение А 


смена регистров А и Е на 


восстановление А 
С=счетчик 1 

В=счетчик 2 

смена регистров А и Е 
С=С-1 
если С<>0, 
восстановить счетчик 1 
инвертировать бит D4 
вывести А в порт 254 
смена регистров А и Е 
В=В-1 
если В<>0, 
восстановить счетчик 2 


обработки байта 


альтернативные 


(смена голоса) 
топерейти на СОМТ 
голоса 1 

(смена голоса) 


то перейти на СОМТ2 


инвертировать бит D4 голоса 2 


вывести А в порт 254 
L=L+1 


если 1<>0, то перейти Ha BEEP 
H=H-1 

если H<>0, To перейти Ha BEEP 
разрешение прерываний 


возврат 
Exploding 1 


НТ=адрес ПЗУ 


С=частота, В=длина 
сохранение ВС 
В=длительность 
А=содержимое ячейки ПЗУ 
сброс битов бордюра 
установка битов бордюра 
вывод А в порт 254 
сохранение ВС 

В=частота 

задержка 

HL=HL+1 

восстановление BC 
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190 
200 
210 
220 
230 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 


10 
20 
30 


? INCREASE 


*FRQ, LEN 


? INCREASE 


*FRQ, VOL 
*LEN, DUR 


LOOP1 
LOOP2 


LOOP3 


LOOP4 


?DR:INC 
?VL:DEC 
ЗЕРО: ІМС 


297 LOOP2 
POP ВС 

М> © 

DINZ LOOP1 

RE 

LD A, (23624) 
RRA 

RRA 

RRA 

ДЕ, А 

D РЕ, 12801 
PUSH DE 

LD B,E 

DJNZ PAUSE 

LD A, (BC) 
AND 248 

OR L 

OUT (254),A 
INC С 

INC D 

JR NZ, LOOP2 
POP DE 

INC E 

DEC D 

JR NZ, LOOP1 
RET 

DI 

LD ВС, 12900 
LD DE, 25650 
LD A, (23624) 
RRA 

RRA 

RRA 

PUSH DE 

PUSH BC 

XOR 16 

OUT (254),A 
DJNZ LOOP3 
XOR 16 

OUT (254),A 
LD B,C 

DJNZ LOOP4 
POP BC 

DEC D 

JR NZ, LOOP2 
POP DE 

INC D 

DEC B 

ІМС С 

ОЕС Е 

ЈЕ NZ, LOOP1 
ЕТ 

ВЕТ 

DI 

LD A, (23624) 
RRA 


цикл 
восстановление ВС 

увеличение задержки (DEC С) 
цикл 
возврат 


Exploding 2 


A= 
цвет 
бор- 

дюра 
Т=А 
Е=частота, р=длина 
сохранить DI 
В=Е 
задержка 
А=содержимое ячейки ПЗУ 
сбросить биты бордюра 
установить цвет бордюра 
вывод А в порт 254 
увеличение адреса ПЗУ 
D=D+1 
если р<>0, то цикл 
восстановить DE 
увеличение задержки (DEC Е) 
D=D-1 
если р<>0, то цикл 
возврат 


[E 


Volume FX 


запрет прерываний 
С=частота,В=громкость 
Е=длина, О=длительность 
А= 
цвет 

бор- 

дюра 

сохранение DE 
сохранение ВС 
инвертирование бита D4 
вывод А в порт 254 
задержка (громкость) 
инвертирование бита D4 
вывод А в порт 254 
B=C 
задержка (частота) 
восстановление ВС 
D=D-1 
если р<>0, то цикл 
восстановление DE 
увеличение длительности (DEC РО, NOP) 
уменьшение громкости (INC В, МОР) 
увеличение частоты (DEC С, МОР) 


если Е<>0, то цикл 
разрешение прерываний 
возврат 


Flowing 1 


запрет прерываний 
А= 
цвет 
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40 ВВА 

50 ВВА 

60 ХЕВО, LEN LD BC, 65281 
70 100Р1 PUSH BC 

80 +DURATION LD B,20 

90 LOOP2 XOR 16 

100 OUT (254),A 
110 PUSH BC 

120 LD B,C 

130 LOOP3 DJNZ LOOP3 
140 POP BC 

150 DJNZ LOOP2 
160 POP BC 

170 ?DECREASE DEC С 

180 DJNZ LOOP1 
190 EI 

200 RET 

10 DI 

20 *FRQ1,FRQ2 LD DE, 2660 
30 +DURATION LD С,255 
40 LD A, (23624) 
50 RRA 

60 RRA 

70 RRA 

80 LOOP1 XOR 16 

90 OUT (254),A 
100 LD B,D 

110 LOOP2 DJNZ LOOP2 
120 XOR 16 

130 OUT (254),A 
140 LD B,E 

150 LOOP3 DJNZ LOOP3 
160 ?F1:INC INC D 

170 ?F2:DEC DEC E 

180 DEC С 

190 JR NZ, LOOP1 
200 EI 

210 RET 

10 +QUANTITY LD B,24 

20 :FREQUENCY LD HL, 200 
30 :DURATION LD DE,1 

40 PUSH HL 

50 PUSH BC 

60 CALL 949 

70 POP BC 

80 POP HL 

90 :STEP LD DE, 30 
100 ?INCREASE ADC НЉ,РЕ 
110 DINZ :DURATION 
120 RET 

10 *STP,QUANT LD BC, 12870 
20 :FREQUENCY 1р HL, 512 
30 :DURATION LD DE, 20 
40 PUSH HL 

50 PUSH BC 

60 CALL 949 


бор- 
дора 

С=частота, В=длина 
сохранение ВС 
В=длительность 
инвертирование 
вывод А в порт 
сохранение ВС 
B=C 

задержка 
восстановление ВС 
цикл 
восстановление ВС 
уменьшение частоты 


бита D4 
254 


(INC С) 


разрешение прерываний 
возврат 


Flowing 2 


запрет прерываний 
Е=частота 1,р=частота 2 
С=длительность 


А= 
цвет 
бор- 
дюра 
инвертирование бита D4 
вывод А в порт 254 
B=D 
задержка 1 
инвертирование бита D4 
вывод А в порт 254 
В=Е 
задержка 
увеличение задержки 1 (DEC Р, 
увеличение задержки 2 (INC Е, 
С=С-1 
если С<>0, то цикл 
разрешение прерываний 
возврат 
Cycle 1 


В=количество нот 
НІ=начальная частота 
РЕ=длительность 
сохранение HL 
сохранение ВС 
вызов подпрограммы ПЗУ 
восстановление ВС 
восстановление HL 

рЕ=шаг изменения частоты 
увеличение HL (SBC HL, DE) 
цикл 
возврат 


E 


Cycle 2 


С=шаг, В=количество HOT 
НІ=начальная частота 
РЕ=длительность 
сохранение HL 
сохранение ВС 
вызов подпрограммы ПЗУ 


МОР) 
МОР) 
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70 
80 
90 
100 
110 
120 
130 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


? DECREASE 


: GROUP 


BEGIN 


+FREQUENCY 


LOOP 
?BOUNDS 


: GROUP 


*FRQ1, FRQ2 


+DURATION 


BEGIN 


LOOP1 


LOOP2 


LOOP3 


LOOP4 


?Е1:ІМС 
?Е2:рЕС 


Ке! 


О 


єл е >» ончолач 


BC 

HL 

A,L 

С 

L,A 

: DURATION 


HL, 0 
A, (23624) 


NZ, BEGIN 


HL, 0 

DE, 2660 
C,255 

A, (23624) 


|] а Ga OE Се СО Сге к-С О) за 
осы = HWZ = Hw SS 


Q 


данное 
10 в 


= 


NZ, BEGIN 


восстановление BC 
восстановление HL 
умень- 

шение (ADD A,C) 

L 
цикл 
возврат 


Noise 1 


НТ=адрес ПЗУ 


ВС=длительность 
сохранение ВС 
А=содержимое ячейки ПЗУ 
сброс битов бордюра 
установка цвета бордюра 
вывод А в порт 254 
В=частота 
задержка 
HL=HL+1 (ІМС 1) 
восстановление ВС 
BC=BC-1 

BC= 

0? 

если нет, TO цикл 
возврат 


Noise 2 


НТ=адрес ПЗУ 
Е=задержка 1,р=задержка 2 
С=длительность 
А= 
цвет 

бор- 

дюра 

инвертирование бита D4 
вывод А в порт 254 
В=содержимое ячейки ПЗУ 
задержка 1 
В=р 

задержка 2 
инвертирование бита D4 
вывод А в порт 254 
В=содержимое ячейки ПЗУ 
задержка 3 
В=Е 
задержка 4 
HL=HL+1 
увеличение 
уменьшение 
С=С-1 

если С<>0, то цикл 
возврат 


Avo 
О 
ira 

Ы ә, 
= 
О 
Џој 
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Приложение 2. 


Советы по использованию ассемблера. 


Чтобы испытать эффекты в машинных кодах, приведенные в этой книге, Вам придется 
использовать специальную программу - ассемблер. В настоящее время существует множество 
различных ассемблеров, но в России наиболее популярен и распространен GENS4. Это составная 
часть пакета DEVPAC4 фирмы Hisoft. Вторая часть этого пакета (монитор - отладчик МОМ$4) нас 
сейчас не интересует. 

Я не буду подробно описывать GENS4, это отлично сделано в [1], но некоторые ключевые 
моменты я объясню. 

Существует несколько различных версий этой программы (в т. ч. и дисковых), поэтому 
ничего конкретного по загрузке посоветовать не могу кроме того, что для безопасности Вы 
можете пропустить бейсик-загрузчик и грузить сразу кодовую часть. Для её загрузки с кассеты 
введите следующие команды: 

CLEAR 24999: LOAD "" CODE 25000 
а с диска - такие: 
CLEAR 24999: RANDOMIZE USR 15619: REM: LOAD "GENS4D" CODE 25000 

Для запуска загруженного таким образом GENS4 введите команду 

RANDOMIZE USR 25000. 

Практически все эффекты, приведенные в этой книге можно ввести и ассемблировать без 
изменений. Исключение составляют листинги эффектов SUPER SOUNDa, в которых необходимо 
специальные метки заменить на более приемлемые (они должны начинаться с латинской буквы, 
быть несколько короче и не содержать пробелов). 

Перед любым эффектом необходимо вставить директиву ассемблера ORG, указывающую с 
какого адреса разместить оттранслированный код. В данном случае этот адрес должен быть не 


меньше 37000. Например: 
10 ORG 40000 


Если Вы хотите вызывать созданный эффект прямо из ассемблера, то необходимо вставить 
директиву ЕМТ: 
20 ЕМТ $ 

Теперь немного о командах строчного редактора GENS 4 (полный их список Вы можете 
найти в [1]): 


ПММ] - Автоматическая нумерация строк начиная со строки М и с шагом М. Отмена - 
клавиша Edit (CS/1). По умолчанию М и М равны 10. 

LIN] „М] - Вывод на экран листинга программы со строки М по строку М включительно. По 
умолчанию выводится листинг всей программы. 

ОМ, М - Удалить строки от М до М включительно. 

G[,,S] - Загрузить с магнитного носителя программу с именем S. 

P[N][,M][,S] - Записать на магнитный носитель программу со строки М по строку М 


включительно под именем 5. По умолчанию используются параметры, 
установленные предыдущей командой С или Р. 


O[,,S] - Записать Ha магнитный носитель откомпилированную программу под именем S. 

К - Запустить откомпилированную программу. Возврат в GENS4 осуществляется по 
команде КЕТ. 

В - Вернуться в бейсик. Перезапустить GENS4 в нашем случае можно командой 
RANDOMIZE USR 25000. 

Z - Удалить текст программы. 

Н - Вывести на экран список команд редактора. 

А - Ассемблировать программу. Формат этой команды довольносложен. 


Подробно он описан в [1]. Здесь же Вам достаточно просто ввести букву А без параметров. 
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